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PREFACE 



PL/I is a block-structured programming language designed 
for use in scientific and commercial applications. PL/I 
Version 1 is essentially a subset of the language defined 
by the American National Standard Programming 
Language PL/I, X3.53-1976, document. 

PL/I Version 1 operates under control of the following 
operating systems: 

NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, 74; and 6000 Series 
Computer Systems 



NOS/BE 1 for the CDC® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, 74; and 6000 Series 
Computer Systems 



This manual is designed for programmers familiar with the 
PL/I language and the operating system under which the 
PL/I compiler is operating. 



Related material is contained in the publications listed 
below. 



Publication 

CYBER Record Manager Advanced Access Methods 
Version 2 Reference Manual 

CYBER Record Manager Basic Access Methods 
Version 1.5 Reference Manual 

FORTRAN Common Library Mathematical Routines 
Reference Manual 

NOS Version 1 Reference Manual, Volume 1 of 2 

NOS Version 1 Reference Manual, Volume 2 of 2 

NOS/BE Version 1 Reference Manual 



Publication Number 
60499300 

60495700 

60498200 

60435400 
60445300 
60493800 



CDC manuals can be ordered from Control Data Corporation, Literature and Distribution 
Services, 308 North Dale Street, St. Paul, Minnesota 55103. 



This product is intended for use only as described in 
this document. Control Data cannot be responsible for 
the proper functioning of undescribed features or 
parameters. 
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NOTATIONS USED IN THIS MANUAL 



NOTATION USED IN SYNTAX 



UPPER CASE 
Lower case 



[3 
Brackets 



{} 



Braces 



words are PL/I keywords. 

words are generic terms that represent 
the words or symbols supplied by the 
programmer. 

enclose optional portions of syntax. All of 
the syntax within the brackets can be 
omitted or included at programmer 
option. If items are stacked vertically 
within brackets, only one of the stacked 
items can be used. 



enclose required portions of syntax. If 
items are stacked vertically within 
braces, only one of the stacked items can 
be used. 



> > » 

Commas 



Bullet 



immediately follow an item, a pair of 
brackets, or a pair of braces to indicate 
that the item or enclosed syntax can be 
repeated at programmer option. A 
comma is required between repeated 
entries. 

separates adjacent items to indicate they 
can be written in any order. Two or more 
bullets separating items at the same 
bracket or brace level indicate all 
separated items can be permuted in any 
order. 



Punctuation symbols shown within syntax are required unless 
enclosed in brackets. 



NOTATION USED IN EXAMPLES 

A indicates the blank character. 



[II II] enclose two or more vertically stacked 

Vertical Bars items when each of the stacked items can 
Within Brackets be either used once, or omitted. Any 
items used can be written in any order. . 

immediately follow an item, a pair of 
Ellipses brackets, or a pair of braces to indicate 

that the item or enclosed syntax can be 
repeated at programmer option. 



SHADING USED IN MANUAL 

Control Data restrictions and extensions to the language 
described in American National Standard Programming 
Language PL/I, X3.53-1976, are indicated by shading. 
Shading is also used to indicate processing that is different 
from that specified in the standard. Language and 
processing that are implementation-defined but within the 
standard are not shaded. 



60388100 A 



xv 



PL/I SOURCE PROGRAM 



A PL/I program is one or more external procedures, 
compiled separately or together, which can interact during 
execution. Each procedure is composed of a series of 
statements that conform to the structure and syntax of the 
PL/I language. The source program is processed by the PL/I 
compiler and changed into an executable program that can 
be loaded and executed by the operating system. 

When the compiler executes in response to a control 
statement entered through a batch job or interactive 
terminal, it performs the following functions: 

Reads the file containing the source program. INPUT is 
the default source file. 



Checks the source program for errors in program 
structure and language syntax, and writes diagnostic 
messages to a file to be printed on the line printer or 
displayed at a terminal. 

Depending on parameters specified on the PLI control 
statement, writes a copy of the source program to an 
output file; and writes a cross reference list to this file 
as a summary of data item descriptions and references 
within the program. OUTPUT is the default output file. 

Unless binary code generation is suppressed by a 
compiler call parameter, compiles the source lines into 
executable code and writes the executable instructions 
to a file in a format suitable for loading and executing. 
LGO is the default file for the compiled program. 

Once the source program is compiled, it can be loaded and 
executed by a control statement that names the file of 
executable instructions. Section 13 describes other func- 
tions that can be performed during compilation. 

During execution, the compiled program makes use of 
execution-time routines that are part of the PL/I run-time 
library. Files referenced in the program are opened, read, 
written, rewritten, and closed through the CYBER Record 
Manager facility common to several products running under 
the NOS and NOS/BE operating systems. 

The job in which the program executes is responsible for 
making data files available before the program begins 
execution and for properly disposing of output files after 
execution ends. If the program uses information on a 
library, the job is also responsible for making the library file 
available before execution. 



PROGRAM STRUCTURE 

A PL/I program is composed of a sequence of structured 
components. The basic language elements such as names, 
keywords, and constants represent the lowest level struc- 
ture; statements represent the middle level; and blocks 
represent the highest level. The basic language elements 
are grouped to form statements, and the statements in turn 
are grouped to form organized collections called blocks. 
The hierarchical structure of the program blocks determines 
how much or how little interaction between various com- 
ponents is to take place during the execution of a program. 



This organization of the source code represents the static 
structure of a program. 

CONTAINMENT 

The terms contain and immediately contain are used 
throughout this manual. The terms are essential to an 
understanding of the way PL/I programs are organized. 

A program component contains a second component if the 
second component appears inside of the first. 

A program component of a certain kind immediately 
contains a second component if both of the following 
statements are true: 

• The first component contains the second component. 

• There is no other component, of the same kind as the 
first component, that contains the second and is 
contained in the first. 

For instance, one can describe the room that immediately 
contains the table and the house that immediately contains 
the table. 

A program component is always either completely contained 
or not contained at all in another program component. 



BLOCKS 

A source program consists of delimited areas called blocks. 
Each block is a sequence of PL/I statements and constitutes 
a section of the program. Blocks affect the program in the 
following ways: 

• Delimit areas within which declared names are known. 

• Determine the allocation and freeing of certain kinds of 
data storage. 

• Influence the flow of control during program execution. 

There are two types of blocks: procedure blocks and begin 
blocks. The structuring of the two types of blocks is similar. 
Each is headed by an identifying statement; followed by 
groups of statements, which in turn can be nested procedure 
or begin blocks; and terminated by an identifying statement. 
The structure of a block is as follows: 

PROCEDURE or BEGIN statement 

Zero or more block units 

END statement 

where each block unit can be any of the following 
components: 

procedure block 

begin block 

do group 
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compound statement 

DECLARE statement 

ENTRY statement (procedure block only) 

FORMAT statement 

single statement 

The significant difference between procedure blocks and 
begin blocks is the manner in which they are activated 
(entered for processing) during program execution. A 
procedure block is activated when it is invoked. A begin 
block is activated when its BEGIN statement is encountered 
in the normal sequential flow of control. If the BEGIN 
statement is labeled, the block can also be activated by an 
unconditional transfer (GOTO statement). 



Procedure Block 

A procedure block can be external or internal. An external 
procedure block is one that is not contained in another 
block. An internal procedure block is one that is contained 
within another block. 

Every program must contain one, and only one, main 
procedure. The main procedure is an external procedure 
whose PROCEDURE statement denotes the main entry point 
of the program; execution is initiated at this point. The 
main procedure is distinguishable from all other procedures 
by the appearance of the OPTIONS(MAIN) clause in the 
PROCEDURE statement that heads the block. 

A procedure is invoked at one of its entry points. Entry 
points are denoted by the PROCEDURE statement and all 
ENTRY statements that are immediately contained in the 
procedure. The PROCEDURE statement denotes the pri- 
mary entry point of the procedure. Each ENTRY statement 
denotes a secondary entry point. Any entry point except the 
primary entry point of a main procedure can have a set of 
parameters to which arguments are passed when the 
procedure is invoked. 

Each entry point is either a subroutine entry point or a 
function entry point. A procedure is invoked in one of 
two ways: 



CALL statement 
execution 



Function reference 



A subroutine entry name appears 
in a CALL statement; control 
passes to the specified procedure 
entry point. 

A function entry name appears in 
an expression; control passes to 
the function, which performs 
computation and returns a value 
to the point of invocation. 



In general, each component of a PL/I program is imme- 
diately contained in exactly one block. For example, the 
block that immediately contains the declaration of an 
identifier is either a procedure block or a begin block. The 
declaration is considered to be immediately contained in the 
block even if the declaration is inside another kind of 
program component (such as a do group) that is contained in 
the block. All text in a block - except text in contained 
blocks - is immediately contained in the block. 

There are three special cases in which elements of the 
program are not contained in the block one might expect: 

Entry names on a PROCEDURE or ENTRY statement of 
an internal procedure block are not immediately con- 
tained in the procedure whose entry point is denoted by 
the statement; they are immediately contained in the 
block that immediately contains that procedure. 

Labels on a BEGIN statement are not immediately 
contained in the begin block headed by the statement; 
they are immediately contained in the block that 
immediately contains that begin block. 

Entry names on a PROCEDURE or ENTRY statement of 
an external procedure block are not contained in any 
block. 

These exceptions are made because these entry names and 
labels are not the names of the statements on which they 
appear, but the names of the blocks. The name of a block 
must be outside the block so that the block can be accessed. 

The concepts of containment and immediate containment 
are illustrated in figure 1-1. 



DO GROUPS 

A do group is a delimited area of a block. Each group is a 
sequence of PL/I statements that can be executed condi- 
tionally or iteratively. 

A do group is headed by a DO statement, followed by some 
sequence of statements and blocks, and terminated by an 
END statement. A do group is entered when it is 
encountered in the normal sequential flow of control. If the 
DO statement is labeled, the group can be entered at the DO 
statement by an unconditional transfer (GOTO statement). 
The structure of a do group is as follows: 

DO statement 

Zero or more block units 



Begin Block 

A begin block is always internal (contained within another 
block). Begin blocks, unlike procedure blocks, are not 
invoked. A begin block is executed when control reaches the 
block at the BEGIN statement either through normal 
sequential flow of control or transfer of control to the 
BEGIN statement. 



Block Containment 

A procedure or begin block can contain other blocks. Every 
block except an external procedure is completely enclosed in 
some other block. Blocks can be nested up to a depth of 50. 



END statement 

where each block unit can be any of the following 
components: 

procedure block 

begin block 

do group 

compound statement 

DECLARE statement 
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P1: 




PROCEDURE; 




statement-1; 




statement-2; 




B1: 




BEGIN; 




statement-3; 




P2: 




PROCEDURE; 




statement-4; 




E2: 




ENTRY; 




statement -5; 




END P2; 




1— statement-6; 




B2: 




| BEGIN; 




1 statement-7; 




1 EXB2: 




l_ END B2; 




__ END B1; 




"*** statement-8; 




EXP1: 




END PI; 


The immediately contained text for each block is: 


Block P1 Block B1 


PROCEDURE; BEGIN; 


statement-1 statement-3 


statement-2 P2 entry name 


B1 label E2 entry name 


statement-8 statement-6 


EXP1: END; B2 label 


END ; 




Block P2 Block B2 



PROCEDURE; 

statement-4 

ENTRY; 

statement-5 

END; 



BEGIN; 
statement-7 
EXB2: END 



The contained text for each block is indicated by 
the lines to the left of the example. The labels 
of BEGIN statements and the entry names of 
PROCEDURE and ENTRY statements are not 
contained in the block that immediately contains 
those statements, but in the next outer block. 
Label B2 on the BEGIN statement, for example, 
is not contained in block B2, but in block B1. 
Entry name PI on the PROCEDURE statement 
is not contained in block PI since PI is an 
external procedure. 



Figure 1-1. Block Containment 

ENTRY statement (noniterative do group only) 
FORMAT statement 
single statement 

Do groups can be iterative or noniterative. A noniterative 
do group is executed once each time the DO statement is 
encountered. An iterative do group can be executed 
repetitively according to controls specified in the DO 
statement. 



COMPOUND STATEMENTS 

A compound statement is a statement that can contain 
embedded statements. The IF and ON statements are the 
statements in this structural category. 



IF Statement 

The IF statement allows the flow of control to take 
alternate paths, depending on the value of a specified 
expression. The structure of an IF statement is as follows: 

IF expression 

THEN executable-unit 

ELSE executable-unit 
or 

IF expression 

THEN executable-unit 

The statement is classified as compound since each execu- 
table unit consists of one or more embedded statements. An 
executable unit is executed or bypassed depending on the 
value of the expression. Each executable unit can be any of 
the following components: 

begin block 

do group 

compound statement 

single statement 

ON Statement 

The ON statement establishes an on-unit for a condition. 
When the ON statement is executed, it sets up the action to 
be taken when a specific condition occurs at some future 
time. The on-unit is executable code that specifies the 
action taken when the specific condition occurs. The 
structure of an ON statement is as follows: 

ON condition on-unit 

The statement is classified as compound since the on-unit 
consists of one or more embedded statements. The on-unit 
can be either of the following components: 

begin block 

single statement 

The begin block or single statement representing the on-unit 
is executed only when an unusual condition arises during 
execution and results in a program interrupt. The on-unit 
designates the action that is to be taken as a result of the 
interrupt. 

An on-unit acts in a manner similar to a procedure block. 
Two significant differences between a procedure block and 
an on-unit are 

• The on-unit is activated automatically and only on 
interrupt. 

• The on-unit cannot receive arguments. 
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SINGLE STATEMENTS 

The single statement is the basic element from which all 
groups and blocks are formed. Single statements are listed 
in table 1-1. 

* TABLE 1-1. SINGLE STATEMENTS 



Category 


Statement 


Program Control 


CALL 
GOTO 




Null 




RETURN 




STOP 


Storage Control 


ALLOCATE 
FREE 


Interrupt Handling 


REVERT 
SIGNAL 


Input/Output 


CLOSE 
DELETE 




GET 




LOCATE 




OPEN 




PUT 




READ 




REWRITE 




WRITE 


Data Manipulation 


Assignment 



BLOCK AND DO GROUP CLOSURE 

The physical end of a block or do group is denoted by an 
END statement. The structure of an END statement is as 
follows: 

END closure-name; 

The closure name in the END statement is optional. If the 
closure name is included, it must match one of the 
following: 

An entry name on a PROCEDURE statement - 

A label on a BEGIN statement 

A label on a DO statement 

An END statement with a closure name closes its associated 
block or do group, and also closes any contained blocks or do 
groups that do not have END statements. This convention is 
termed multiple closure. An END statement with no closure 
name closes only one unclosed block or do group; the block 
or do group closed is the innermost one not closed by any 
previous END statement. 

Examples of block and do group closure are shown in 
figure 1-2. 

STATEMENT STRUCTURE 

The basic structure of a statement includes one or more 
optional prefixes, a statement body, and a terminating 
semicolon. 



Example 1 

p: 

PROCEDURE* 

Bi: 

BEGIN* 

02: 

00* 
END D2I 

END Bit 

E: 

END PI 



Example 2 (equivalent to example 1) 

PI 

PROCEDURE t 
Bit 

BtOlM 
02* 

00 1 

END* 
ENC* 
EI 
END I 



Example 3 (equivalent to examples 1 and 2) 



PI 

PROCEDURE I 
Bit 

BEGIN! 
021 

00* 
E: 
ENC PI 



Example 4 (incorrect structure) 



Pt 

PRCCEOURE I 
Bit 

BEGIN* 
62 1 

BEGIN! 

ENO fill 



Label on END statement 
used for multiple closure 
is equivalent to label on 
outermost END statement 
in examples 1 and 2 



/•ENDS B2 AND 81 



•/ 



ENO B2« /'ERROR - B2 ALREADY*/ 
/•CLOSED •/ 



ENC PI 



Figure 1-2. Block and Do Group Closure 



A prefix can be a label, entry, format, or condition prefix. 
Each prefix is terminated by a colon. A label prefix 
identifies a statement. An entry prefix identifies an entry 
point at which a procedure can be invoked. A format prefix 
identifies a FORMAT statement. A condition prefix enables 
or disables program interrupts caused by one or more 
abnormal computational conditions. 



The statement body generally consists of an identifying 
keyword followed by a sequence of options that are written 
as a combination of keywords, expressions, and references. 
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STATEMENT ELEMENTS 



Examples of keywords are 



The basic elements that are used to form the prefixes and 
the components of the statement body are 

words 

literal constants 

iSUBs 

delimiters 

Words 



PROCEDURE 

BINARY 

ENVIRONMENT 



used as a format item. 

used as a statement identifier. 

used as an attribute. 

used as an OPEN or CLOSE 
statement option or as an 
attribute. 



Many keywords have abbreviations as noted in appendix O. 
The abbreviations are recognized in the same contexts as 
the keywords. 



A word is a sequence of characters. Each word is used as a 
keyword or an identifier. If a word listed in the keyword 
vocabulary in appendix D is used in an appropriate context, 
it is interpreted by the compiler as a keyword. Words that 
fail to satisfy this condition are interpreted as identifiers. 

Words are formed from the letters A through Z, digits 
through 9, and the following special characters: 

(CDC equivalent is <) 

(CDC equivalent is s ) 
$ 
_ (CDC equivalent is r-») 

A word can contain up to 40 characters and must begin with 
a letter or one of the following special characters: 



Identifiers 

An identifier is a name that is used to identify and refer to 
data, statements, and blocks. With the exception of special 
identifiers SYSIN and SYSPRINT, all identifiers are 
program mer-def ined. 

SYSIN is the default input file for program execution. Every 
stream input operation (GET statement) that does not 
reference a file or a string as the data source is assumed to 
reference SYSIN. 

SYSPRINT is the default output file for program execution. 
Every stream output operation (PUT statement) that does 
not reference a file or a string as the data target is assumed 
to reference SYSPRINT. Every stream input operation that 
includes a COPY option and does not reference an output 
copy file is assumed to reference SYSPRINT for copy 
purposes. SYSPRINT is also used at run time as the system 
error message file. 



- 

Examples of words are 

X 

P3 

PROCEDURE 

B555 

BINARY 

@#ABC 

RATE OF PAY 



Literal Constants 

A literal constant is an unnamed data item that represents a 
constant arithmetic or string value. The following types of 
literal constants are basic statement elements: 



arithmetic 
simple bit string 
simple character string 

An arithmetic constant is a numeric data item with no 
embedded blanks. For example: 



35 

.726 

6.623E-27 



!decin 
const 



[decimal 
[constants 






1010B 

1010.0B 

10.1E8B 



binary 
constants 



Keywords 

A keyword has special significance to the compiler and run- 
time routines when it is used in the context for which it was 
designed. Keywords are not reserved words. A particular 
word can be used both as a keyword and as an identifier 
throughout a program. A word is recognized as a keyword 
only when it appears in an appropriate context; in any other 
context, the same word is treated as an identifier. 



A simple bit string constant is a sequence of zero and one 
characters enclosed in apostrophe characters and followed 
by the radix factor B. For example: 

'1110'B 

'101'B 

'llllll'B 
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A simple character string constant is a combination of 
characters enclosed in apostrophe characters. For example: 

'ABC represents ABC 

'A B C represents ABC 

When an apostrophe character is to appear in the character 
string value, it must be represented by a pair of adjacent 
apostrophes. For example: 



TABLE 1-2. DELIMITERS 



'AB"C 



represents AB'C 



iSUBs 

The iSUB elements are used only in subscripts in the 
DEFINED attribute. An iSUB is an integer followed by the 
letters SUB with no intervening blanks. For example: 

DECLARE B(5,5) ; 
DECLARE D(5) 

DEFINED (B(1SUB,1SUB)) ; 



Delimiters 

Delimiters are special characters that define the limits of 
words, literal constants, and iSUBs. When a syntax rule does 
not indicate a specific delimiter, at least one blank or 
comment must be used to separate any two nondelimiter 
elements. In the example 

PUT LIST(AMT) ; 

the left parenthesis is required in the syntax and acts as a 
delimiter between LIST and AMT; therefore, a blank is not 
required. At least one blank is required as a delimiter 
between PUT and LIST. 

Some delimiters act as operators in expressions. Other 
delimiters delimit or separate specific program components; 
the semicolon, for example, delimits statements. 

It should be noted that the decimal point, plus, and minus 
characters do not act as delimiters when they appear within 
an arithmetic constant. Delimiter characters do not act as 
delimiters when they appear within a simple character string 
constant or a comment. 

The complete set of delimiters is listed in table 1-2. 



Blanks 

Any two basic elements can be separated by one or more 
blanks. When one or both of the elements are delimiters, 
the blank is optional. The following examples are equi- 
valent: 

A+B(X) 

A + B (X) 

A+ B( X) 

When neither element is a delimiter, at least one blank is 
required. The following examples are equivalent: 

ENDP; 

END P; 



blank 
comment 



/ 
** 



< 

> 



—i = (ASCII equivalent is - =) 
~> < ( ASCII equivalent is - <) 
~ i > (ASCII equivalent is - >) 



< = 

> = 



(ASCII equivalent is - ) 

(CDC equivalent is A ) 

(CDC equivalent is v and ASCII equivalent is ! ) 

(CDC equivalent is Wand ASCII equivalent is !! ) 



The following examples are not equivalent: 

ENDP; 

ENDP; 

Blanks cannot appear within any basic element except a 
simple character string constant or a comment. 



Comments 

A comment consists of a sequence of characters preceded by 
the character pair /* and followed by the character pair */. 
The character pair */ must not appear within the comment 
itself. For example: 

/* THIS IS A LEGAL COMMENT */ 

/* THIS IS AN ILLEGAL */ COMMENT V 

Any two basic elements can be separated by a comment. A 
comment between any two basic elements has the same 
effect as a blank. For example: 

A+/*B-FUNCTION OF X*/B (X) 
END/*CLOSE BLOCK P*/P; 

If any part of a character string constant conforms to the 
syntax rule for a comment, it is not interpreted as a 
comment, but simply as part of the character string. 
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Conversely, if any part of a comment conforms to the 
syntax rule for a character string constant, it is not 
interpreted as a character string constant, but simply as 
part of the comment. 

Comments appear on the output listing of the source 
program and have no effect on program execution. They are 
used for documentation purposes only. 



CHARACTER SET 

The set of language characters recognized by the PL/I 
compiler can be combined according to the specified rules to 
form names and values in the source program. The PL/I 
character set is shown in table 1-3. Extralingual characters 
can only be used in comments and character strings. 



TABLE 1-3. CHARACTER SET 



CODING CONVENTIONS 



PL/I source statements are assumed to be in columns 1 
through 72 of each source line. The actual columns read by 
the compiler can be altered by the COL parameter on the 
PLI control statement. The maximum range for source 
statements is column 1 through column 100. 

PL/I programming is free-form within the chosen columns. 
The program can be arranged on the page for maximum 
readability and maintainability. The source text within the 
columns read by the compiler is treated as a continuous 
stream of characters. 

On a line containing an END statement that closes an 
external procedure, all text following the END statement is 
ignored by the compiler. 

If several external procedures are compiled together, com- 
plete lines of text (containing blanks and comments) 
between two external procedures are treated as belonging to 
the procedure they precede. Such lines are not permitted to 
follow the last external procedure being compiled. 

Coding conventions are illustrated in figure 1-3. 



PL/I Language Characters 


Letters: 


A-Z 


Digits 


;: 


0-9 




Special Characters: 


+ 


plus 


- 


minus 


* 


asterisk 


/ 


slash 


> 


greater than 


< 


less than 


= 


equals 


— i 


not (ASCII equivalent is — ) 


& 


and (CDC equivalent is A ) 


1 


or (CDC equivalent is v and ASCII 




equivalent is ! ) 


. 


period 


9 


comma 


9 


semicolon 




colon 




blank 


1 


apostrophe (CDC equivalent is t ) 


( 


left parenthesis 


) 


right parenthesis 


_ 


underline (CDC equivalent is r*) 


$ 


dollar sign 


e 


commercial at (CDC equivalent is <) 


# 


number (CDC equivalent is = ) 


Extralingual Characters: 


% 


percent 


[ 


left bracket 


] 


right bracket 


n 


quote (CDC equivalent is * ) 


9 


question mark (CDC equivalent is i ) 


\ 


back slash (CDC equivalent is >) 



/• THIS COMMENT 

CONTINUES OVER 
FOUR LINES 

OF SOURCE TEXT •/ 

/* BUT ThIS •/ 

/» IS A MUCH SAFER •/ 

/» WAV TO WRITE •/ 

/• SUCH COMMENTS •/ 



OECLARE C CHARACTERUOO) VARYING INITIAL <*THIS SIMPLE-ChARACTER-STRING-C 
ONSTANT RUNS ACROSS THE END OF A LINE*)* 

OECLARE ChARACTER(lOO) VARYING INITIAL 

(♦BUT THIS IS A SAFER WAY TO WRITE A VERY LONG CHARACTER STRING*) I 



Figure 1-3. Coding Conventions 
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DYNAMIC PROGRAM STRUCTURE 



As described in section 1, the static structure of a program 
is the organization of source code; that is, the blocks, do 
groups, and statements and their relationships. This section 
describes the dynamic structure of a program. The dynamic 
structure is the flow of control during program execution, 
the activation and termination of blocks, and the methods by 
which statements in one block reference other blocks and 
their associated generations of storage. 



FLOW OF CONTROL 

The collection of external procedures that constitute a PL/I 
program must include exactly one main procedure. The 
main procedure is the external procedure block with the 
OPTIONS(MAIN) clause designated in its PROCEDURE 
statement. 

When PL/I program execution is initiated by an operating 
system control statement, the main procedure is activated 
at its primary entry point. The primary entry point is the 
PROCEDURE statement of the main procedure. Beginning 
with the first executable statement immediately contained 
in the main procedure, control passes sequentially from 
statement to statement. 

The following are not executed when they are encountered 
in the sequential flow of control: 

• Procedure block - The block is bypassed, and control 
passes to the statement following the END statement of 
the procedure. The block is executed only when it is 
invoked by execution of a CALL statement or by 
evaluation of a function reference. 

• On-unit - The on-unit is established when the ON 
statement in which it appears is executed, but the 
on-unit is not executed at that time. The on-unit is 
executed only when the associated condition is raised. 

• DECLARE, ENTRY, and FORMAT statements - These 
statements are passed through as if they were null 
statements. 

Sequential flow of control is illustrated in figure 2-1. 

When the following are executed, they cause diversion from 
sequential program flow: 

• Procedure invocation - The procedure is activated and 
control is transferred to an entry point of the invoked 
procedure. Actions taken by the procedure determine 
whether or not control returns to the point of 
invocation. 

• Condition raising - If the condition is enabled, the 
current established on-unit for that condition is acti- 
vated and control is transferred to the first statement 
of the on-unit. Actions taken by the on-unit determine 
whether or not control returns to the block in which the 
condition was raised. 

• GOTO statement - Control is unconditionally trans- 
ferred to a labeled statement. One or more block 
activations can be terminated. 



A: 


PROCEDURE; 




B: 


B 


EGIN; 










END B; 






C: 


PROCEDURE; 
END C; 








1 

END A; 





Figure 2-1. Sequential Flow of Control 



• RETURN statement - Control is returned to the point 
at which the procedure was invoked or the block in 
which the condition was raised. 

• IF statement - Flow of control is influenced by the 
evaluation of the expression in the IF statement. The 
flow of control takes one of two paths, depending on the 
value of the expression. 

• Iterative do group - Control is influenced by the 
evaluation of expression values in the DO statement. 
On each iteration, control is passed to the statement 
following the DO statement or to the statement 
following the group END statement, depending upon the 
values of expressions in the DO statement. 

• END statement of a procedure — The procedure acti- 
vation is terminated. Control is returned to the point 
at which the procedure was invoked. 

• END statement or only statement of an on-unit - 
When the END statement is executed, or after the only 
statement is executed, the on-unit activation is ter- 
minated. Control is returned to the block in which the 
condition was raised. 

Diverted flow of control is illustrated in figure 2-2. 
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A 


PROCEDURE; 
















B: 


BEGIN; 








■ 


■■ 












END B; 








1 
1 
I 


PROCEDURE; 
1 
1 

♦ 










1 
1 


END C; 




"1 






!r 










1 D 
1 


: BEGIN; 
I 






l__ 


CALL C; 
END D; 


♦ . 






















END A; 











• An on-unit is activated when the associated condition is 
raised and the condition is enabled. 

Any block that has an unterminated activation is called an 
active block. Several blocks can be active at the same time; 
activation of one block does not cause termination of 
another. 



Figure 2-2. Diverted Flow of Control 

BLOCK ACTIVATION 

A block activation is a specific execution of a block. As 
stated in section 1, an on-unit acts like a block even when it 
is written as a single statement. All discussions of the 
properties and behavior of blocks in this section apply to 
on-units; the single statement on-unit always acts as if it 
had been written with surrounding BEGIN and END 
statements. 

A block is activated under one of the following 
circumstances: 

• The main procedure is initially activated when program 
execution is initiated by an operating system control 
statement. 

• A procedure block is activated when it is invoked either 
by execution of a CALL statement or by evaluation of a 
function reference. 

• A begin block is activated when control reaches the 
BEGIN statement through normal sequential flow or 
when control is transferred to the BEGIN statement by 
a GOTO statement. 



An activation of a block that is already active is called a 
recursive block activation. A procedure block can be 
activated recursively only if the PROCEDURE statement of 
the block has the RECURSIVE option. A recursive call to a 
procedure can cause reactivation of already active begin 
blocks contained in the procedure. 

When a block is activated, the following actions are taken in 
the order shown: 

1. If a procedure block is being activated at an entry point 
that has parameters, extents (array bounds, string 
lengths, and area sizes) for the parameters are 
evaluated. Each parameter is associated with the 
corresponding argument. 

2. Declarations of automatic and defined variables de- 
clared in the block are processed as follows: extents 
are evaluated, storage is allocated for each automatic 
variable, and initial values are assigned to automatic 
variables. Refer to section 4, Attributes, for additional 
details. 

3. If an on-unit is being activated, appropriate condition 
builtin function values are established. 

This process is called the prologue of the block activation. 

BLOCK ACTIVATION RELATIONSHIPS 

Block activations are maintained in a stack. The stack, 
known as the dynamic block activation stack, holds a set of 
system-maintained values for each activation. When a block 
is activated, the stack is pushed down and the new block 
activation is added at the top of the stack; thus, the values 
associated with unterminated activations are preserved. 

The bottom activation in the stack is the first activation of 
the main procedure; the top activation in the stack is the 
current block activation. Each block activation is the 
immediate dynamic predecessor of the next (newer) one, and 
is the immediate dynamic successor of the previous (older) 
one. When the current block activation is terminated, it is 
removed from the stack and its immediate dynamic prede- 
cessor becomes the current block activation. The maximum 
number of activations in the stack at a given time is limited 
only by available storage. 

The dynamic relationship between block activations is 
determined by the order of block activations and termina- 
tions, and not by the way blocks are statically nested in the 
source program. An activation of a begin block, for 
example, can be the dynamic predecessor of an activation of 
a procedure that contains the begin block; an activation of a 
begin block can also be the dynamic predecessor of an 
activation of an external procedure. An activation of a 
block can be the dynamic predecessor of another activation 
of the same block. 



ENVIRONMENT OF A BLOCK 
ACTIVATION 

A statement can reference an identifier (variable or named 
constant) that is declared in the same block as the reference 
or in a containing block. A reference to an identifier that is 
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teclared in the same block as the reference is called a local 
reference. A reference to an identifier that is declared in a 
jontaining block is called a nonlocal reference. 

[f the dynamic block activation stack holds two or more 
ictivations of the same block simultaneously, multiple 
sopies of certain variables exist. Each copy of a variable is 
jailed a generation as described in section 3, Data Elements. 
Multiple generations exist for each automatic variable, 
defined variable, and parameter variable declared in the 
>lock. In the same circumstances, multiple values exist for 
jaeh label constant, entry constant, and format constant 
ieclared in the block. 

When the program executes a reference to such variables or 
lamed constants, the system uses the following rules to 
determine which generation or value to use: 

A local reference accesses the generation or value 
associated with the current block activation. 

A nonlocal reference accesses the generation or value 
associated with an activation that is part of the 
environment of the current block activation.t 



Each activation of an internal block has an environment that 
consists of precisely one activation of each containing block. 
The environment of a block activation is a subset of the 
dynamic block activation stack. 

An activation of an external procedure has no environment. 
Nonlocal references can appear only in internal blocks. 

As explained in section 1, each block except an external 
procedure is immediately contained in another block. An 
activation of an internal block has an immediate environ- 
ment that is an activation of its immediate containing block. 
Since the immediate environment of a block activation can 
itself have an immediate environment, a list is formed; the 
environment of a block activation is this list of block 
activations. 

When a block is activated or reactivated, there might be 
several activations of the immediate containing block in the 
block activation stack. Assume block B is immediately 
contained in block A. When B is activated to produce an 
activation B., a particular activation A. of block A is 
selected as The immediate environment or B. according to 
specific rules. Figure 2-3 gives six examples of environment 
selection. Each example is explained as follows: 





Example 1 










Example 2 


A: 


PROC OPT IONS (MAIN) t 
Bt BEGIN! 

• 
• 

END Bt 
ENO At 

Example 3 








At 
Pt 


PROC OPT IONS (MA IN )t 

OCL P ENTRY t 

ON CONO(REO) BEGIN /'ON-UNIT B«/t 

■ • 

END! 
CALL Pt 
ENO At 
PROCt 

SIGNAL CON0(REO)t 
ENO PI 

Example 4 


a: 


PROC OPTIONS (MAIN) 1 
Bt PROCt 

* 








At 


PROC OPT IONS (MA IN >t 
Bt PROCt 

• 




ENO Bt 
CALL Bt /'LOCAL REFERENCE 
ENO At 


TO 


B«/ 




ENO Bt 
Ot BEGIN! 

CALL 81 /"NONLOCAL REFERENCE TO B«/ 

ENO 01 
ENO A! 




Example 5 










Example 6 


At 


PROC OPTIONS(MAIN)! 
Bt PROCI 

• 








At 


PROC OPT IONS (MA IN)! 
Bt PROC! 

■ • . ■'■■■■■ 




• 

ENO Bt 
Ct PROC(X)t 

OCL X ENTRY 1 
CALL Xt 
ENO Ct 

CALL C(B)t /'LOCAL REFERENCE 
ENO At 


TO B*/ 




ENO Bl 
Ct PROC(X)l 

OCL X ENTRY 1 

CALL Xt 

ENO CI 
0: BEGINI 

CALL C(B)I /'NONLOCAL REFERENCE TO B«/ 

ENO 0! 
ENO Al 



Figure 2-3. Environment Selection 



t 



Nonlocal references to a format constant are not permitted. 
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B is a begin block. 

A. is the immediate dynamic predecessor of B^ 
(example 1). 



B is an on-unit. 

A. is the block activation in which B was estab- 
lished as an on-unit by execution of the ON 
statement that contains B (example 2). 

B is a procedure block; the invocation of B directly 
references an entry name of B. 

A. is the activation of A that is either the 
immediate dynamic predecessor of B. (example 3), 
or part of the environment of the immediate 
dynamic predecessor of B^ (example 4). 

B is a procedure block; the invocation of B references 
an entry parameter whose value is an entry name of B. 

A. is the activation of A that was either the 
currently active block (example 5), or part of the 
environment of the currently aetive block 
(example 6) at the time when the constant entry 
name was passed as an argument to a procedure. 

The environment of B,^ is the list of immediate environments 
leading from B. to an activation of the external procedure 
that contains B. It is possible for two activations of a block 
to have the same environment or different environments. 
Dynamic block activation environment concepts are illus- 
trated in figure 2-4. 

The rules for block activation and block termination ensure 
that A is active whenever B is active, and that A. is in the 
dynamic block activation stack while B^ is active. 



BLOCK TERMINATION 

When a block activation is terminated, it is removed from 
the block activation stack and its dynamic predecessor 
becomes the current block activation. 



Normal termination of the current block activation occurs 
under any of the following circumstances: 

• A begin block or procedure block is currently active and 
control has reached its END statement. The current 
block activation is terminated. 



An on-unit that consists of a single statement is 
currently active and that statement has been processed 
without terminating the on-unit activation. The cur- 
rent on-unit activation is terminated. 



• An on-unit that consists of a begin block is currently 
active and control has reached its END statement. The 
current on-unit activation is terminated. 

• A procedure block or on-unit is currently active and 
control has reached a RETURN statement. The current 
procedure block activation or on-unit activation is 
terminated. 

Normal procedure block, begin block, and on-unit termina- 
tion is illustrated in figures 2-5, 2-6, and 2-7. 



PROC RECURSIVE OPTIONS(MAIN); 
B: PROC RECURSIVE; 
C: BEGIN; 



D: BEGIN; 

E: PROC; 



L 




BEGIN; 

Z: ON . . . on-unit-Z 



Block activations are denoted by the name of the block 
followed by a subscript; B2, for example, represents the 
second activation in the program at block B. A possible 
situation might be: 



Dynamic Stack 
top— E, 

°1 



Environment 



B 2 , A 2 



on-unit- Z 



first 
activation-* A 1 



r 1 M 2 
A 2 

none 

B 1- A 1 

A 1 
none 



The environment might also be displayed by arrows. Each 
arrow points to the immediate environment. 



E 
D 
B 2 

on-unit-Z-j 
F 
A. 



3 

a) 
3 



Figure 2-4. Dynamic Block Activation Environment 
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PROCOPTIONS(MAIN); 



B: BEGIN; 



PROC; 

RETURN; 

ENDC; 



CALLC; 



Block activations are denoted by the name of the block 
followed by a subscript. 



Sample 
Dynamic Stack 

top— Ct 



B 



first 
activation— A-j 



Dynamic Stack 

After END C;or 

RETURN; Executed 

Bl 

A 1 

Control passes 
to statement 
after CALL C; 



Figure 2-5. Normal Procedure Block Termination 



ibnormal termination of the current block activation occurs 
nder any of the following circumstances: 

1 A begin block is currently active and control has 
reached a RETURN statement. The current activation 
of the begin block is terminated; and one or more of its 
dynamic predecessors are also terminated, up to and 
including the most recent procedure block or on-unit 
activation. The begin block activations are terminated 
abnormally; the procedure or on-unit activation is 
terminated normally. Control returns to the dynamic 
predecessor of the most recently activated procedure 
block or on-unit. 

• A begin block, a procedure block, or an on-unit is 
currently active and control has reached a GOTO 
statement that transfers control to a statement not 
immediately contained in the same block activation as 
the GOTO statement. This is referred to as a nonlocal 
GOTO. The current block activation is terminated, as 
well as all of its dynamic predecessors up to (but not 
including) the block activation that immediately con- 
tains the statement referenced by the GOTO statement. 

abnormal block and on-unit termination is illustrated in 
igures 2-8 and 2-9. 

l GOTO statement that transfers control to a multiple- 
losure END statement can cause normal termination of one 
'lock activation and abnormal termination of its dynamic 



A; PROCEDURE OPTIONS(MAIN); 
CALL B; 



B: PROCEDURE; 



C: BEGIN; 



D BEGIN; 



END D; 



Block activations are denoted by the name of the block 
followed by a subscript. 



Sample 
Dynamic Stack 

top— D] 



first 
activation— Ai 



Dynamic Stack 

After END D; 

Executed 

C .1 



A, 

Control passes 
to statement 
after END D; 



Figure 2-6. Normal Begin Block Termination 



successors. Block termination and multiple closure concepts 
are illustrated in figure 2-10. Additional information 
regarding multiple closure appears under Block and Do 
Group Closure in section 1, PL/I Source Program. 

When a block activation is terminated normally or abnor- 
mally, the following must be considered: 

• Generations for automatic variables allocated for the 
block activation are freed. 

• All values associated with the activation are discarded. 
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A: PROC OPTIONS(MAIN); 



B: BEGIN; 

ON ENDFILE(F) BEGIN;/*ON-UNIT-E*/ 
PUT- - - 
RETURN; 
END; 
CALL C; 



C: PROC; 

GET FILE(F) LIST(X); 



Block activations are denoted by the name of the block 
followed by a subscript. 



Sample 
Dynamic Stack 

top-»on-unit-Ej 



B 1 
first 

activation-" A ■) 



Dynamic Stack 

After RETURN; 

Executed 



"1 

Control passes 
to statement 
after GET. 



NOTE: If the ON statement were ON ENDFILE(F) 
RETURN; the RETURN statement would 
still pass control to the statement after GET. 



Figure 2-7. Normal On-Unit Termination 



• The termination can cause termination of one or more 
other block activations; specifically, a RETURN state- 
ment in a begin block, or a nonlocal GOTO in any block, 
can cause termination of one or more dynamic prede- 
cessors of the current block activation. 

• When a procedure block is activated, execution of the 
statement that invoked the procedure is partially 
complete. The results of procedure block termination 
are as follows: 

After normal block termination, processing of the 
invoking statement continues. 

After abnormal block termination, processing of 
the invoking statement is never completed. 







*OC OF 


>TIONS(MAIN); 
EGIN; 


A 


PI 




B 


B 






C, 
C 


ML C; 


!OC RECURSIVE; 


PF 




D: 


BEGIN; 










RETURN; 










GOTO X; 










GOTO D; 






X: 






Block activations are denoted by the name of the block 
followed by a subscript. 


Sample 
Dvnamic Stack 


Dynamic Stack 
After GOTO D; and 
D: BEGIN; Executed 


top-»D2 


t>3 


C 2 


c 2 


Dl 


°1 


Cl 


Cl 


B1 
first 

activation -»A-| 


B, 
*1 




GOTO D; terminates the 
current block activation 
(Do) and causes D to be 
activated again (as D3). 
All values associated with 
X>2 are discarded. 




Dynamic Stack 

After RETURN; 

Executed 


Dynamic Stack 

After GOTO X; 

Executed 




Bl 


Bl 


Al 


A 1 


Control passes 
to statement 
after CALL C; 





Figure 2-8. Abnormal Block Termination 
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A: 



PROC OPTIONS(MAIN); 



BEGIN; 

ON ENDFILE(F) GOTO Z; 

/'ON-UNIT-EV 



CALL C; 



Z: 



PROC; 



GET FILE(F) LIST(X); 



Block activations are denoted by the name of the block 
followed by a subscript. 



Sample 
Dynamic Stack 

top-*- on unit- Ei 
C 1 

first 
activation-* Ai 



Dynamic Stack 

After GOTO Z; 

Executed 

A 1 

Control passes 
to statement Z. 



Figure 2-9. Abnormal On-Unit Termination 



• When an on-unit is activated, execution of the state- 
ment in which the condition was raised is partially 
complete. The results of on-unit termination are as 
follows: 

After normal on-unit termination, control passes to 
the point at which the condition was raised or to 
the following statement, depending upon the 
specific condition. Processing of the statement in 
which the condition was raised, therefore, can 
continue or remain incomplete. Normal termina- 
tion of the following on-units is prohibited: 
ERROR, FIXEDOVERFLOW, OVERFLOW, SIZE, 
STRINGRANGE, SUBSCRIPTS ANGE, and ZERO- 
DIVIDE. Refer to section 10, Conditions, for 
further details. 

After abnormal on-unit termination, processing of 
the statement in which the condition was raised is 
never completed. 

• Abnormal block termination can result in incomplete 
I/O activity. 



A: PROC OPTIONS(MAIN); 
CALL B; 




PUT LIST ('LAST STATEMENT 
BEFORE E'>; 
E: END B; 



END A; 



Block activations are denoted by the name of the block 
followed by a subscript. 

Sample 
Dynamic Stack 

top-»Ci 

Bl 
first 
activation-* A^ 



Dynamic Stack 

After PUT and 

E: END B; Executed 



Dynamic Stack 

After GOTO E; and 

E: END B; Executed 



Bl 


A 1 


A 1 


Control passes to 


statement after 


Control passes 


CALL B; 


to statement 




after CALL C; 


This is abnormal 




termination of C 




and normal termina- 





tion of B. 



Figure 2-10. Block Termination and Multiple Closure 



A nonlocal GOTO must not cause the termination of a 
block activation if the immediate dynamic predecessor 
of that block activation is currently performing any of 
the following operations: 

Evaluation of extents of automatic or defined 
variables 

Allocation of storage for automatic variables 

Initialization of automatic variables 

Execution of an ALLOCATE statement 

Allocation of the based variable in a LOCATE 
statement 
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Figure 2-11 illustrates the effects of a nonlocal GOTO 
during storage allocation. 



PROC(I)! 

OCL A(F(I))FLOAT AUTOMATIC! 
/•FUNCTION REFERENCE INVOKES F*/ 
OCL 1 FIXED BIN! 
F: PROC<N) RETURNS (FIXED BIN) I 
OCL N FIXED BIN! 



GOTO LABI 

/•ILLE6AL-*1LL RAISE ERROR*/ 

/•WHEN EXECUTED •/ 



RETURN!. ..)! 
END Ft 



LAB:...! 
END P! 



Note: F must not contain a reference to any automatic, 
parameter, or defined variable declared in P 
because the prologue of P has not been com- 
pleted when F is invoked. 



P« PROC OPT IONS (MAIN)! 

ON FINISH BEGIN! /•ON-UNIT-X*/ 



ENOI 

B! BEGIN! 

ON FINISH BEGIN! 



/•ON-UNIT-Y*/ 



ENOI 



RETURN! 



STOP! 
END Bl 
END Pt 



If the RETURN statement is executed, block B is 
terminated and on-unit-X is activated; the dynamic 
stack holds on-unit-X 1 and P-j. 

If the STOP statement is executed, on-unit-Y is 
activated; the dynamic stack holds on-unit-Y <|, 
B], and Pj. 



Figure 2-11. Attempted Nonlocal GOTO 
During Storage Allocation 



Figure 2-12. Program Termination 



On normal termination of or in the absence of an 
established programmed FINISH on-unit, the system 
performs the following: 



PROGRAM TERMINATION 

Program termination occurs when the first or only activa- 
tion of the main procedure is terminated or when a STOP 
statement is executed. Each type of termination is 
illustrated in figure 2-12 and described in the following 
paragraphs. 



MAIN PROCEDURE TERMINATION 

When control reaches the END statement of the first or only 
activation of the main procedure, or when a RETURN 
statement is executed that would cause the termination of 
the first or only activation of the main procedure, the 
following steps are taken: 

1. If the statement executed was a RETURN statement 
contained in one or more nested begin blocks, the begin 
block activations are terminated. 

2. The FINISH condition is raised. The first activation of 
the main procedure block is still active at this point. 

3. If a programmed FINISH on-unit is established in the 
first activation of the main procedure, the on-unit is 
activated. The on-unit can be written to execute 
special termination processes. If the on-unit activation 
is terminated by execution of a nonlocal GOTO, 
program execution continues. 



Terminates the main procedure block activation. 

Closes all open files. 

Returns control to the operating system. 

STOP STATEMENT EXECUTION 

When a STOP statement is executed, the following steps are 
taken: 

1. The FINISH condition is raised. More than one block 
can still be active at this point. In addition, incomplete 
storage allocations or incomplete I/O activity can exist. 

2. If there is an established programmed on-unit for the 
FINISH condition, the on-unit is activated. The on-unit 
can be written to execute special termination 
processes. If the on-unit activation is terminated by 
execution of a nonlocal GOTO, program execution 
continues, but incomplete storage allocations or I/O 
activity can exist. 

3. On normal termination of or in the absence of an 
established programmed FINISH on-unit, the system 
performs the following: 

Terminates all block activations. 

Closes all open files. 

Returns control to the operating system. 
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PROGRAM ABORT 

Program execution is aborted under the following 
circumstances: 



When this 
aborts the 
program (transfers control to the next appropriate EXIT 
control statement). 



• The system ERROR on-unit is activated, 
occurs, the system closes all files and 



The STORAGE condition is raised, and the system 
cannot obtain enough storage to print the snap output 
and activate the STORAGE on-unit. When this- occurs, 
the system aborts the program. Files might not be 
closed, and error messages describing the abort might 
be absent or incomplete. 

Time limit is reached. When this occurs, the system 
writes a message on the dayfile, attempts to close all 
files, and aborts the program. 



• A missing external procedure (unsatisfied external) is 
invoked. When this occurs, the system writes a message 
on the dayfile, attempts to close all files, and aborts 
the program. 

The following circumstances will cause incorrect program 
execution and might result in mode errors: 

• A disabled computational condition is raised. 

• The source program has undiagnosed logic errors; for 
example, the use of a bad locator value. 

When a mode error occurs, the system writes a message on 
the dayfile, attempts to close all files, and aborts the 
program. 

When program abort is unable to close files, some informa- 
tion on those files might be lost. Program abort does not 
raise the FINISH condition. 
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DATA ELEMENTS 



This section describes the data elements that specify or 
represent values in the PL/I program. Each program 
includes a variety of data elements used for different 
purposes. The data elements are various types of. literal 
constants, named constants, and variables. 

Each data element has a data type. The data type indicates 
the way in which the data element can be used. Data types 
are divided into two groups, computational and 
noncomputational. 

Each data element has an aggregate type. The aggregate 
type indicates whether the data element is a scalar that 
represents a single element or an aggregate that represents 
an organization of data elements. 

Each data element that is a variable has a storage type. The 
storage type determines the way in which the variable is 
associated with storage. 

Data type, aggregate type, and storage type are some of the 
characteristics associated with data elements. Character- 
istics of each data element are dependent on the attributes 
of the data element. Attributes are described in section 4, 
Attributes. 



LITERAL CONSTANTS 

A literal constant specifies a value that is constant 
throughout program execution. A literal constant is 
unnamed and has a scalar computational value. The three 
types of literal constants are 

• Arithmetic constant 

• Character string constant 

• Bit string constant 



ARITHMETIC CONSTANT 

An arithmetic constant specifies an arithmetic value. A set 
of arithmetic attributes is implied by the actual form of the 
literal constant. Attributes indicate the following 
properties of the value: 

• REAL mode 

• DECIMAL or BINARY base 

• FIXED or FLOAT scale 

• precision (p,q) or (p) 



Fixed Point Decimal Constant 

A fixed decimal constant is an unsigned decimal number 
containing an optional decimal point at any position. Blanks 
are not permitted in the constant. The syntax of a fixed 
decimal constant is shown in figure 3-1. 



! decimal-digits 
decimal-digits, 
decimal-digits, decimal-digits 
.decimal -digits 

where decimal-digits is a sequence of decimal digits for 
the integer or fractional part of the value 



Figure 3-1. Fixed Decimal Arithmetic Constant Syntax 

The implied attributes are REAL, FIXED, DECIMAL, and 
precision (p,q). The precision p is the number of digits in the 
constant, including leading and trailing zeros. No more than 
14 digits can be specified. If the constant has a decimal 
point, q is the number of digits to the right of the decimal 
point, including trailing zeros. If the constant has a decimal 
point but no digits are to the right, q is 0. If the constant 
has no decimal point, the decimal point is assumed to be to 
the right of the decimal number and q is 0. The following 
are examples of fixed decimal arithmetic constants, with 
the implied attributes shown: 

REAL FIXED DECIMAL (1,0) 

2156. REAL FIXED DECIMAL (4,0) 

21.2000 REAL FIXED DECIMAL (6,4) 

.400 REAL FIXED DECIMAL (3,3) 

The maximum value for a fixed decimal constant is 
99999999999999 (14 digits). The minimum value is zero, and 
the minimum nonzero value is .00000000000001 (14 digits). 
A specified value such as -3.1 is a type of expression. 



Floating Point Decimal Constant 

A float decimal constant is an unsigned decimal number 
containing an optional decimal point at any position and 
followed by an exponent. The exponent is the letter E 
immediately followed by an optionally signed decimal 
integer. Blanks are not permitted in the constant. The 
syntax of a float decimal constant is shown in figure 3-2. 



{decimal-digits 
decimal-digits, 
decimal-digits.decimal-digits 
.decimal-digits 



:|+|decii 



decimal-exponent 



where decimal-digits is a sequence of decimal digits for 
the integer or fractional part of the mantissa 

and where decimal-exponent is a sequence of decimal 
digits for the exponent value 



Figure 3-2. Float Decimal Arithmetic Constant Syntax 
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The implied attributes are REAL, FLOAT, DECIMAL, and 
precision (p). The precision p is the number of digits in the 
mantissa, including leading and trailing zeros. No more than 
14 digits can be specified in the mantissa. If there is no 
decimal point, the decimal point is assumed to be to the 
right of the mantissa. The value is the mantissa multiplied 
by the base (10) raised to the power of the specified 
exponent. The exponent is specified in decimal digits and 
can be signed. The following are examples of float decimal 
arithmetic constants, with the implied attributes shown: 



0E0 



REAL FLOAT DECIMAL (1) 



10.E2 REAL FLOAT DECIMAL (2) 

326.4300E-4 REAL FLOAT DECIMAL (7) 



.7E+48 



REAL FLOAT DECIMAL (1) 



The maximum value for a float decimal constant is 
approximately 1.265E+322. The minimum value is zero, and 
the minimum nonzero value is approximately 3.132E-294. A 
specified value such as -4E+20 is a type of expression. 



Fixed Point Binary Constant 

A fixed binary constant is an unsigned binary number 
containing an optional binary point at any position and 
followed by the letter B. The B is a radix factor that 
signals a binary value. Blanks are not permitted in the 
constant. Each digit in the binary number must be a or a 
1 digit. The syntax of a fixed binary constant is shown in 
figure 3-3. 



binary-digits B 
binary-digits. B 
binary-digits.binary-digits B 
.binary-digits B 

where binary-digits is a sequence of binary digits for the 
integer or fractional part of the value 



Figure 3-3. Fixed Binary Arithmetic Constant Syntax 

The implied attributes are REAL, FDSED, BINARY, and 
precision (p,q). The precision p is the total number of binary 
digits, including leading and trailing zeros. The total 
number of digits specified cannot exceed 48. If the constant 
has a binary point, q is the number of digits to the right of 
the binary point, including trailing zeros. If the constant has 
a binary point but no digits are to the right, q is 0. If the 
constant has no binary point, the binary point is assumed to 
be to the right of the binary number and q is 0. The 
following are examples of fixed binary arithmetic constants, 
with the implied attributes shown: 

OB REAL FIXED BINARY (1,0) 

llll.B REAL FIXED BINARY (4,0) 

1.111B REAL FDXED BINARY (4,3) 

•010B REAL FKED BINARY (3,3) 

The maximum value of a fixed binary constant is 
1111...1111B (48 digits). The minimum value is zero, and the 
minimum nonzero value is .0000...0001B (48 digits). A 
specified value such as -.101B is a type of expression. 



Floating Point Binary Constant 

A float binary constant is an unsigned binary number 
containing an optional binary point at any position, followed 
by an exponent, and then followed by the letter B. The B is 
a radix factor that signals a binary value. Blanks are not 
permitted in the constant. Each digit in the binary number 
must be a or a 1 digit. The exponent consists of the 
letter E immediately followed by an optionally signed 
decimal integer. The syntax of a float binary constant is 
shown in figure 3-4. 



{binary-digits 
binary-digits, 
binary-digits.binary-digits 
.binary-digits 



£] 



decimal-exponent B 



where binary-digits is a sequence of binary digits for the 
integer or fractional part of the mantissa 

where decimal-exponent is a sequence of decimal digits for 
the exponent value 



Figure 3-4. Float Binary Arithmetic Constant Syntax 



The implied attributes are REAL, FLOAT, BINARY, and 
precision (p). The precision p is the number of binary digits 
in the mantissa, including leading and trailing zeros. The 
number of binary digits specified in the mantissa cannot 
exceed 48. If there is no binary point, the binary point is 
assumed to be to the right of the binary mantissa. The value 
is the mantissa multiplied by the base (2) raised to the power 
of the specified exponent. The exponent is specified in 
decimal digits and can be signed. The following are 
examples of float binary arithmetic constants, with the 
implied attributes shown: 



0000E0B 



REAL FLOAT BINARY (4) 



11.E2B REAL FLOAT BINARY (2) 

101.11E4B REAL FLOAT BINARY (5) 

.001E-15B REAL FLOAT BINARY (3) 

The maximum value of a float binary constant is 
1.111...1111E+1069B (48 digits in the mantissa). The 
minimum value is zero, and the minimum nonzero value is 
1.E-975B. A specified value such as -11E-2B is a type of 
expression. 

CHARACTER STRING CONSTANT 

A character string constant (also called a character con- 
stant) specifies a character value. A simple character 
constant is a sequence of zero or more characters enclosed 
in apostrophes. An apostrophe character in the character 
value is represented by two consecutive apostrophes. An 
unpaired apostrophe cannot appear inside the character 
constant, since an unpaired apostrophe would end the 
character constant. 

A replicated character constant consists of a repetition 
factor and a simple character constant. The character value 
consists of repetitions of the same sequence of characters. 
If the repetition factor is 1, a single copy is used. If the 
repetition factor is 0, the character constant is a null string. 
If the repetition factor is greater than 1, multiple copies are 
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concatenated to form the character value. For example, a 
string of forty asterisks can be written as (40)'*'. The syntax 
of a character string constant is shown in figure 3-5. 



'characters' 
(repetition-factor) 'characters 



'} 



where characters is a sequence of zero or more characters 
and where repetition-factor is an unsigned decimal integer 



Figure 3-5. Character Constant Syntax 

The implied attributes are CHARACTER and nonvarying. 
The length is the number of characters in the character 
value, after any repetition factor has been applied. Maxi- 
mum length of a character constant is 16383 characters. 
The following are examples of character constants, with the 
implied attributes shown: 

' ' CHARACTER(O) nonvarying; null string 

1 ABC ' CHARACTERS) nonvarying; value=ABC 

• IT • * S • CHARACTERS) nonvarying; valuers 

(3) ' OK ' CHARACTERS) nonvarying; value=OKOKOK 

BIT STRING CONSTANT 

A bit string constant (also called a bit constant) specifies a 
bit value. A simple bit constant is a sequence of zero or 
more bits (each bit or 1) enclosed in apostrophes and 
followed by the letter B. The B is a radix factor that 
distinguishes a bit constant from a character constant. A 
bit constant does not represent a binary arithmetic value. 

A replicated bit constant consists of a repetition factor and 
a simple bit constant. The bit value consists of repetitions 
of the same sequence of bits. If the repetition factor is 1, a 
single copy is used. If the repetition factor is 0, the bit 
constant is a null string. If the repetition factor is greater 
than 1, multiple copies are concatenated to form the bit 
value. For example, a string of sixty zero bits can be 
specified as (60)'0'B. The syntax of a bit string constant is 
shown in figure 3-6. 



( 'bits'i 
J (repe 



(repetition-factor) 'bits'B 



} 



where bits is a sequence of zero or more characters 
representing bits 

and where repetition-factor is an unsigned decimal integer 



Figure 3-6. Bit Constant Syntax 

The implied attributes are BIT and nonvarying. The length is 
number of bits in the bit value, after any repetition factor 
has been applied. Maximum length of a bit constant is 16383 
bits. The following are examples of bit constants, with the 
implied attributes shown: 



"B 

•HOl-'B 
(2) ' 101 ' B 



BIT(0) nonvarying; null string 
BIT(4) nonvarying; value=1101 
BIT(6) nonvarying; value=101101 



NAMED CONSTANTS 

A named constant is an identifier that represents constant 
noncomputational values. Named constants have attributes 
that are not inherent in the form of the constant. Named 
constants have values that are not complete until the 
constants are referenced. A named constant is either an 
entry constant, a file constant, a format constant, or a label 
constant. 



ENTRY CONSTANT 

An entry constant identifies an entry point of a procedure. 
An entry point is a point at which the procedure can be 
invoked, as well as a complete description of all parameters 
and the returned value, if any. An entry constant is part of 
an entry value. An entry value identifies both an entry point 
and a block activation. When an entry value is used to 
invoke a procedure, the entry point part identifies the 
PROCEDURE or ENTRY statement at which execution 
begins, and the block activation part specifies the imme- 
diate environment of the new procedure activation. 

An entry constant that identifies an entry point of an 
internal procedure is an internal entry constant. An internal 
entry constant is declared in the block that immediately 
contains the procedure. An entry constant represents a 
name of a procedure, and in a sense is prefixed to the 
procedure. Each time an internal entry constant is 
referenced, an entry value is constructed by associating the 
entry constant with a block activation. The block activation 
used is the most recent activation of the block that 
immediately contains the referenced procedure. 

An entry constant that identifies an entry point of an 
external procedure is an external entry constant. The 
declaration is not contained in any block. No block 
activation is needed to complete the entry value, because an 
activation of an external procedure has no environment. 

Each entry prefix on a PROCEDURE or ENTRY statement is 
declared as an entry constant. An entry constant can be 
internal or external. All entry constants have the ENTRY 
and constant attributes. DECLARE statement declaration 
of an external entry constant is necessary only to set up 
communication between external procedures. 

An entry constant can be used in the following ways: 

• As a subroutine reference in a CALL statement, if the 
entry constant represents a subroutine entry point 

• As a function reference, if the entry constant repre- 
sents a function entry point 

• As an argument passed to an invoked procedure 

Entry values cannot be returned by a function. Entry values 
cannot be assigned or compared. Arrays of entry constants 
are rv supported. 

Examples of entry constants are shown in figure 3-7. 



FILE CONSTANT 

A file constant serves as a linkage that enables a program to 
communicate with external data storage. External data 
storage is an organized collection of data. A program can 
access CYBER Record Manager (CRM) files, using them as 
input to the program, updating them, or creating them as 
output. 
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p: 

PROCEDURE OPTIONS(MAIN)! 
/•P IS EXTERNAL EKTRY CONSTANT 
OCL STR CHAR(S) I 



*/ 



ZCi 



CALL ZC (STR) » 

■ 

PROCEDURE (ASTRINGU 
/•2C IS INTERNAL ENTRY CONSTANT 
DCL ASTRING ChAR(5H 



END ZCI 
END Pt 



Figure 3-7. Entry Constant Examples 



The declaration of a file constant does not create a 
complete linkage. All declarations except those for file 
constants are completed during compilation. A file constant 
has a special set of attributes, called file description 
attributes, that are not necessarily complete until program 
execution. A file constant is not associated with a CRM file 
until the file constant is opened. 

A file constant must be associated with a CRM file before 
data can be transmitted. A file constant can be repeatedly 
opened and closed during program execution. When a file 
constant is opened, the set of file description attributes is 
completed. When the file is closed, the file constant is 
restored to the same status as before opening. 

File constants can be declared by DECLARE statement, and 
file description attributes can be specified. Each file 
constant can be internal or external. File constants are 
external by default. All file constants have the FILE and 
constant attributes. In some cases, file constants are 
recognized by usage and are therefore declared 
contextually. 

A file constant can be used in the following ways: 

• As the file reference in a FILE option in an I/O 
statement 

• As the file reference in a COPY option in a GET 
statement 

• As the file reference in an I/O condition in an ON, 
REVERT, or SIGNAL statement 

• As an argument passed to the PAGENO builtin function 
or pseudovariable 

• As an argument passed to an invoked procedure 

File values cannot be returned by a function. File values 
cannot be assigned or compared. Arrays of file constants 
arc re" supported. 

An example of a file constant is shown in figure 3-8. 



FORMAT CONSTANT 

A format constant identifies a FORMAT statement. A 
format constant is only part of a format value. A format 
value identifies both a FORMAT statement and a block 



activation. When a format value is referenced by an R 
(remote) format item, the statement part identifies the 
format to be used, and the block activation part identifies 
the activation in which references in the FORMAT state- 
ment are to be evaluated. 



DECLARE WORK* FILE OUTPUT I 
/•WORK* IS TILE CONSTANT 



OPEN FILE (WORK*) I 

DO WHILE (COUNT < 62)1 



PUT FILE (WORK*) LIST(TVAL.JVAL»DIFF > I 
END I 
CLOSE FILE (WORK*)) 



Figure 3-8. File Constant Example 

Each format prefix on a FORMAT statement is declared as a 
format constant in the block that immediately contains the 
statement. All format constants are internal. All format 
constants have the format and constant attributes. 

A format constant can be referenced only in an R format 
item in a format specification in a GET, PUT, or FORMAT 
statement. A reference to a format constant must be a 
local reference. 

Format values cannot be passed as arguments or returned by 
functions. Format values cannot be assigned or compared. 
Arrays of format constants are not supported. 

An example of a format constant is shown in figure 3-9. 



GET F1LE(F) EOIT (M00ELNAME.MODELNO»0PT> 
(R(F0RMAT6))t 



F0RMAT6: 

FORMAT 
/•F0RMAT6 



<SKIP.A(12)tX.F(15»3)»X»8(5))» 
IS FORMAT CONSTANT */ 



Figure 3-9. Format Constant Example 



LABEL CONSTANT 

A label constant identifies a statement of any type other 
than PROCEDURE, ENTRY, or FORMAT. A label constant 
is only part of a label value. A label value identifies both a 
statement and a block activation. When a label value is used 
to transfer control to a statement, the statement part 
identifies the statement to which control is transferred, and 
the block activation part specifies the new current block 
activation after the transfer of control is completed. 

Each label prefix on a statement other than PROCEDURE, 
ENTRY, or FORMAT is declared as a label constant in the 
block immediately containing the statement. All label 
constants are internal. All label constants have the LABEL 
and constant attributes. Each label prefix is either a scalar 
label constant or an element of a label constant array. A 
scalar label constant must be unique within the immediately 
containing block. 
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An array of label constants has the identifier used for all 
elements of the array and a set of subscripts. The subscripts 
of each element of the array must be unique within the 
array. All elements of an array of label constants must be 
immediately contained within the same block. The number 
of subscripts must be the same for every element of the 
array. Each subscripted ia&el prefix deciares one element of 
the array. In addition to the declaration of individual 
elements used as label prefixes, the array of label constants 
must ■-. declared I • .'.■ ■.•." -".v.: ;*.--.-;- „■■.'. n Ihe ■-.-. n< block 

A label constant can be used in the following ways: 

• As the label reference in a GOTO statement 

• As the source expression in an assignment statement 

• As the start expression in a DO statement, or in an 
embedded-do in a GET or PUT statement 

• As an argument passed to an invoked procedure 

Label values cannot be returned by a function. Label values 
cannot be compared. 

Examples of label constants are shown in figure 3-10. 



DECLARE LAB (3) LABEL * 



L00P3: 

/♦L00P3 IS LABEL CONSTANT 



LAB<3>: 

/*LA8<3> IS ELEMENT 

/•IN ARRAY OF LABEL CONSTANTS 



*/ 
•/ 



COMPUTATIONAL VARIABLE 

A computational variable can have an arithmetic value, a 
string value, or a pictured value. Each computational 
variable has attributes that specify the computational data 
type of the variable. The attributes are supplied by 
DECLARE statement declaration or by default. 

A computational variable can acquire values in the following 
ways: 



In assignment statement execution 

In GET statement execution 

In READ statement execution 

During initialization according to the INITIAL attribute 









Figure 3-10. Label Constant Examples 



By assignment to the STRING option variable during 
PUT statement execution 

In argument passing during procedure invocation 

By assignment of a value to the index variable during 
DO statement execution, or execution of an embedded- 
do in a GET or PUT statement 

By assignment to the KEYTO option variable during 
READ statement execution 



Arithmetic Variable 

An arithmetic variable has values that are numbers. The 
specific arithmetic attributes of the variable indicate the 
mode, the scale, the base, and the precision of the 
arithmetic values. The attributes specify the character- 
istics of the values for arithmetic calculations and for 
possible conversion to another arithmetic data type or 
another computational data type. All arithmetic variables 
have the variable attribute. 

The mode of an arithmetic value is indicated by the REAL 
attribute. 



VARIABLES 

A variable is an identifier that represents values that can 
change during program execution. A variable can be 
referenced for its current value at any time during program 
execution. A variable has an undefined value until a value is 
assigned. 

Each variable has generations that are described later in this 
section. Each generation associated with a variable can hold 
any value appropriate for the variable. Generations are 
allocated (that is, created and reserved) at different times, 
depending on the type of storage for each variable. The 
storage types for variables are described later in this 
section. 



Variables are either computational or noncomputational. 
The computational variables are used in computational 
expressions and in assignment operations. The noncompu- 
tational variables are used for other purposes. Variables 
can be scalars or aggregates. A variable that is an 
aggregate can be an array, a structure, or a combination of 
array and structure organizations. Aggregates are described 
later in this section. 



The scale of an arithmetic value is either fixed point or 
floating point, as indicated by the FDCED or FLOAT 
attribute. A fixed point value is one for which a constant 
number of digits is maintained. The position of those digits 
with respect to the decimal or binary point of the number is 
fixed. A fixed point value has a constant scale, but the 
number of significant digits is variable because the value 
can contain leading zeros. A floating point value is one for 
which a constant number of significant digits is maintained. 
The position of the decimal or binary point can float with 
respect to those digits. A floating point value never 
contains a leading zero. A floating point value is often 
represented by a mantissa and an exponent. 

The base of an arithmetic value is either decimal or binary, 
as indicated by the DECIMAL or BINARY attribute. The 
base affects the results of conversions from one data type to 
another. The base also affects the accuracy maintained for 
fixed point values. For example, the value 0.1 can be 
expressed precisely as a fixed point decimal value. The 
same value cannot be represented precisely as a binary value 
because it requires an infinitely repeating fraction. FLOAT 
DECIMAL values are represented internally as FLOAT 
BINARY. Values that are repeating binary fractions cannot 
be maintained precisely as FLOAT DECIMAL. 



60388100 A 



3-5 



The precision of an arithmetic value indicates the number of 
decimal or binary digits to be maintained for the value. For 
floating point, the precision is simply the number of 
significant digits maintained. The representation of a 
floating point value never contains leading zeros. For fixed 
point, the precision has two parts. One part is the number 
of maintained digits, usually referred to as the precision p. 
The other part is a scale factor, usually referred to as scale 
factor q. The number of significant digits is not constant 
because a fixed point value can contain leading zeros. The 
scale factor specifies the position of the least significant 
digit maintained with respect to the decimal or binary point. 
A variable declared as FIXED DECIMAL (p,q) can maintain 
precisely q decimal digits to the right of the decimal point, 
if q is greater than zero. If q is less than zero, then p digits 
counting from the left are maintained, and ABS(q) decimal 
digits immediately to the left of the decimal point are 
discarded. 

The maximum and minimum values for arithmetic variables 
are shown in table 3-1. Examples of arithmetic variables 
are shown in figure 3-11. 

TABLE 3-1. MAXIMUM AND MINIMUM VALUES FOR 
ARITHMETIC VARIABLES 



Arithmetic 


Maximum and 


Minimum 


Attributes 


Minimum Value 


Positive Value 


FIXED DEC(14,0) 


±(10 14 -1) 


1 


FKED DEC(14,255) 


±(10 14 -1)*10~ 255 


10 -255 


FIXED DEC(14,-255) 


±(10 14 -1)*10 255 


10 255 


FLOAT DEC 


~+1.265*10 322 


~3.132*10 -294 


FIXED BIN(48,0) 


±(2 48 -l) 


1 


FDCED BIN(48,255) 


±(2 48 -l)*2~ 255 


2 -255 


FKED BIN(48,-255) 


+ (2 48 -l)*2 255 


2 255 


FLOAT BIN 


~±1.265*10 322 


~3.132*10 -294 



The type of string is indicated by the CHARACTER 
attribute or the BIT attribute. The length is associated with 
the CHARACTER or BIT attribute to specify the length of 
the string value in characters or bits. The variability of the 
length is determined by the VARYING or nonvarying 
attribute. If the string variable is VARYING, the specified 
length is the maximum length of the string rather than the 
current length of the string as set by assignment. 



The maximum length of a string variable is 131071 char- 
acters or bits. Some examples of string variables are shown 
in figure 3-12. 



DECLARE TSWITCH BITUM 
DECLARE STR1 CHARUM 
DECLARE STR2 CHAR (10) I 
STR1 * tTEST-H 



IF (TSWITCH) 

THEN STR2 » STR1 vv *A12M 



Figure 3-12. String Variable Examples 



Pictured Variable 

A pictured variable has values that are character values. 
The picture specification for the pictured variable controls 
the characters or digits that can be present at any position 
in the character string value. 



A pictured variable is declared as a pictured numeric item 
or a pictured character item. A pictured character item has 
only a character string value. A pictured numeric item has 
a character string value and can be interpreted for an 
arithmetic value. Each pictured variable has the PICTURE 
attribute. Picture codes for pictured variables are described 
in section 7, Data Manipulation. All pictured variables have 
the variable attribute. 



DECLARE J FIXED DECIMAL! 
DECLARE VALUEI FIXED DECIMAL* 
DECLARE DF FLOAT BINARY; 



GET L1ST(J); 

VALUEI ■ 100.00 • (J - 15)1 



GET LIST (OF)! 

DF = OF ♦ 5.127864J 



Figure 3-11. Arithmetic Variable Examples 



String Variable 

A string variable has values that are either character strings 
or bit strings. A string variable has attributes that specify 
the type of string, the length, and the variability of the 
length. All string variables have the variable attribute. 



A pictured character item can contain any characters that 
are valid according to the picture specification. A pictured 
character item differs from a character string variable in 
the way values are assigned. A character value assigned to 
a pictured character item is validated to ensure that all 
characters conform to the picture specification. The length 
of the character string value is nonvarying and is implied by 
the picture specification. 



A pictured numeric item has a value that is an edited 
character string representation of an arithmetic value. An 
arithmetic value assigned to the pictured numeric variable is 
edited through the picture and stored as a character string 
value. Unlike an arithmetic variable, a pictured numeric 
item cannot be used directly in arithmetic computations and 
must first be interpreted for an arithmetic value. An 
interpreted arithmetic value has the same arithmetic 
properties as arithmetic variables, with the exception that 
binary values cannot be represented. The mode is always 
REAL, and the base is always DECIMAL. The scale and 
precision are implied by the picture specification. The 
length Of the character string value is nonvarying and is also 
implied by the picture specification. Some examples of 
pictured variables are shown in figure 3-13. 
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DECLARE ACCOUNT PICTURE»AA9999»I 
/•PICTURED CHARACTER 
DECLARE PAYMENT PICTUR£»SSS9V. 991-1 
/•PICTURED NUMERIC FIXED POINT 



PUT SKIP EDIT < PAYMENT* ACCOUNT) 
<A(7)tX(4)«A<6)M 



•/ 



Figure 3-13. Pictured Variable Examples 



NONCOMPUTATION AL VARIABLE 

Noncomputational variables represent values that are used 
for purposes other than computation. Moncomputational 
values have a noncomputational data type and cannot be 
converted to computational values. Area variables, locator 
variables (pointer and offset), entry variables, file variables, 
and label variables are noncomputational variables. 



Area Variable 

An area variable represents storage that is reserved, upon 
allocation, for the subsequent allocation of based genera- 
tions. Storage reserved for the allocation of based genera- 
tions is called an area. All area variables have the AREA 
and the variable attributes. 

An area variable holds an area value. An area value is an 
ordered list of significant allocations, including the allo- 
cated based generations and their values, and including the 
information about certain allocated based generations that 
have been freed but are still significant. An area value 
contains no significant allocations when the area is allo- 
cated. The area value is identical to the value returned by 
the EMPTY builtin function described in section 11, Builtin 
Functions. An allocation is significant if the allocation is 
made within the area and is not yet freed. An allocation is 
also significant if the allocation is freed but the freeing was 
done after another significant allocation was made within 
the area. 

The size of an area is the number of 60-bit words utilized 
when the area is allocated. An area variable can have any 
storage type, including BASED. An area variable can be 
included in an aggregate. 

An area value can be modified in the following ways: 

• By allocating and freeing based generations within the 
area 

• By assigning values to any based generations allocated 
within the area 

An area variable can acquire values in the following ways: 

• By assignment of an area value to the area variable 
during assignment statement execution 

• By assignment of an area value to the index variable 
during DO statement execution, or execution of an 
embedded-do in a GET or PUT statement 

• In argument passing during procedure invocation 

• During initialization of the area with an area value 
according to the INITIAL attribute 



• By assignment to the INTO option variable during READ 
statement execution 

• By being allocated and not initialized, in which case the 
area is set to EMPTY( ) 

An area variable can be used in the following ways: 

• bi assignment to another area during assignment state- 
ment execution 

• As the start expression in a DO statement, or 
embedded-do in a GET or PUT statement 

• As an initial value in the INITIAL attribute 

• As an argument passed to an invoked procedure 

• As the value returned from a function 

• As the FROM option variable in a WRITE or REWRITE 
statement 



Area values cannot be compared, 
variables are shown in figure 3-14. 



Examples of area 



DECLARE 
DECLARE 
DECLARE 
DECLARE 

• 


XY12C20) BASED CHAR(5>S 

0FF71 offset; 

AREA7 AREAO00M 
AREAS AREAOOOM 


• ■ 

ALLOCATE XY12 

• 


SET(0FF7l) 


IN(AREA7)t 


AREAS = 


AREA7 


1 





Figure 3-14. Area Variable Examples 



Locator Variable 

A locator variable represents a locator (pointer or offset) 
value. A locator value identifies the storage associated with 
a generation. A pointer value can identify storage allocated 
for a variable of any storage type. An offset value can only 
identify storage allocated for a based generation within an 
area. The offset value specifies the position of the storage 
relative to the beginning of the area. All locator variables 
have the variable attribute and either the POINTER or the 
OFFSET attribute. 

A locator variable can acquire values in the following ways: 

• By assignment of a locator value to a locator variable 
during assignment statement execution 

• By assignment of a locator value to the index variable 
during DO statement execution, or execution of an 
embedded-do in a GET or PUT statement 

• During initialization of the locator variable with a 
locator value according to the INITIAL attribute 

• In argument passing during procedure invocation 

• By assignment to the SET option variable during 
ALLOCATE statement execution 
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• By assignment (pointer variable only) to the SET option 
variable during READ or LOCATE statement execution 

• By usage of an assumed SET option, constructed from 
the declaration of the BASED variable, during 
ALLOCATE or LOCATE statement execution 

• By assignment (offset variable only) to the INTO option 
variable during READ statement execution 

A locator value can be used in the following ways: 

• In assignment to another locator variable during assign- 
ment statement execution 

• As the start expression in a DO statement, or 
embedded-do in a GET or PUT statement 

• As an initial value in the INITIAL attribute 

• In referencing a based variable, as a locator value in a 
locator-qualifier or as an implicit locator specified in 
the BASED attribute 

• In freeing a based variable, as a locator value in a 
locator-qualifier or as an implicit locator specified in 
the BASED attribute 

As an argument passed to an invoked procedure 

As the value returned from a function 

As an operand in a comparison operation to compare 
two locator values for equality 

• As the FROM option variable (offset value only) in a 
WRITE or REWRITE statement 

Conversion of locator values is performed as required for 
assignment, argument passing, or returning the result of a 
function. 

Assignment and record I/O operations maintain the relative 
positions of based generations allocated within an area. 
When an area variable acquires an area value, all offset 
values that identify based generations in the original area 
value can also be used to identify the corresponding based 
generations in the new area value. 

An example of a locator variable is shown in figure 3-15. 



* 



DECLARE POINTER? 

DECLARE BVARTEST BASED(Q) FIXED DECIMAL! 



ALLOCATE BVARTEST I 



0->BVARTEST s 15.01 



Figure 3-15. Locator Variable Example 



Entry Variable 

An entry variable can only be used as an entry parameter. 
An entry variable has values that are entry values. An entry 
value identifies an entry point of a procedure and a block 
activation. When the entry value is used to invoke a 
procedure, the entry point part identifies the statement at 
which execution begins, including a complete description of 
all parameters and the returned value, if any. The block 
activation part specifies the immediate environment of the 
new procedure activation. Every entry value is ultimately 



derived from an entry constant. The block activation 
identified by an entry value is determined at the time when 
the entry constant is passed as an argument to a procedure. 
All entry variables have the ENTRY and variable attributes. 

'..-. entry ■ an ■.••:•■ r cai .■-■■..-- • iral • m!y ' -. . ;!-' 
associated with an argument. Within any particular activa- 
tion of a procedure that has an entry parameter, the entry 
parameter has a constant value. Values cannot be assigned 

An entry value can be used in the following ways: 

• As a subroutine reference in a CALL statement, if the 
entry value represents a subroutine entry point 

• As a function reference, if the entry value represents a 
function entry point 

• As an argument passed to an invoked procedure 

Entry ■."..;•. cannot le returned bj a functio , and cannot be 
assigned or compared. Entry parameters are not supported 
as arrays. An entry parameter cannot be a member of a 
structure. 

The declaration of an entry variable specifies the data 
types, alignment, and aggregate types of the parameters and 
returned value, if any, associated with the entry point. The 
entry parameter can only hold entry values consistent with 
the specification. 

An example of an entry variable is shown in figure 3-16. 



MAINP: 

PROCEDURE OPT IONS (MAIN) » 



CALL CHOICE (R0UTINE2) I 

/•ENTRY CONSTANT PASSED AS ARGUMENT*/ 



CHOICE: 

PROCEDURE (ROUTINE) I 

DECLARE ROUTINE ENTRY! 
/•ROUTINE IS ENTRY PARAMETER 



CALL ROUTINE* 

/•VALUE OF ROUTINE IS ROUT INEZ •/ 

/•ROUTINE? IS CALLED •/ 

ENO CHOICE! 
ROUTlNEi: 

PROCEOUREI 



END! 
R0UTINE2! 

PROCEOUREI 



END! 
END MAINP! 



Figure 3-16. Entry Variable Example 
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File Variable 



A label variable can acquire values in the following ways: 



A file vnriaMe c:an m used onij as a file pm&mcter, A file 
variable has values that are file constants. A reference to a 
file variable always has the same effect as a reference to 
the file constant that is the current value of the file 
variable. 

The declaration of a file variable cannot contain any file 
description attributes. File description attributes can only 
be specified in the declaration of a file constant, and as 
options in an OPEN statement. 

A file parameter can acquire a value only by being 
associated with an argument. Within any particular activa- 
tion of a procedure that has a file parameter, the file 
parameter has a constant value. Values cannot be assigned 
' •■> -.• :"::y parame icr. 

A file value can be used in the following ways: 

• As the file reference in a FILE option in an I/O 
statement 

• As the file reference in a COPY option in a GET 
statement 

• As the file reference in an I/O condition in an ON, 
REVERT, or SIGNAL statement 

• As an argument passed to the PAGENO built in function 
or pseudovariable 

• As an argument passed to an invoked procedure 

File values cannot be returned by a function. File values 
cannot be assigned or compared. File parameters are not 
supported as arrays. A file parameter cannot be a member 
e-f o structure* 

An example of a file variable is shown in figure 3-17. 



DECLARE FOOT FILE OUTPUT! 



CALL PROD(FOUT)! 

/•FILE CONSTANT PASSED AS ARGUMENT •/ 



PROD: 

PROCEOURE ( F ILEPASS ) 1 

DECLARE F ILEPASS FILE I 

/•FILEPASS IS FILE PARAMETER •/ 

OPEN FILE (FILEPASS) I 



END PRODI 



• By assignment of a label value to a label variable during 
assignment statement execution 

• By assignment of a label value to the index variable in a 
DO statement, or in an embedded-do in a GET or PUT 
statement 

• During initialization of the label variable with a label 
value according to the INITIAL attribute 

• In argument passing during procedure invocation 
A label value can also be used in the following ways: 

• As the label reference in a GOTO statement 

• As the source expression in an assignment statement 

• As the start expression in a DO statement, or in an 
embedded-do in a GET or PUT statement 

• As an argument passed to an invoked procedure 

Label values cannot be returned by a function. Label values 
cannot be compared. 

An example of a label variable is shown in figure 3-18. 



YY» 

PROCEOURE OPTIONS (MAIN) < 
OCL LAB13) LABEL! 

/•LAB IS ARRAY OF LABEL CONSTANTS •/ 
OCL LV LABEL INITIAL (LAB (2) ) t 
/•LV IS LABEL VARIABLE ♦/ 

LAB(l): 



CALL ZZ(LV)! 

/•LABEL VARIABLE PASSED AS ARGUMENT*/ 
LAB(2)t 



LV = LAB<3>! 
CALL ZZ(LV) t 

/•LABEL VARIABLE PASSED AS ARGUMENT*/ 
LAB (3): 



ZZ! 



PROCEDURE (L>! 
DCL L LABEL! 



GOTO L! 
END ZZ! 
END YY! 



Figure 3-17. File Variable Example 



Figure 3-18. Label Variable Example 



Label Variable 

A label variable has values that are label values. A label 
value identifies a statement and a block activation. When a 
label value is used to transfer control to a statement, the 
statement part identifies the statement to which control is 
transferred, and the block activation part specifies the new 
current block activation after the transfer of control is 
completed. 



GENERATIONS AND STORAGE 

A generation is a description of a variable. The generation 
is the basic unit for referencing or assigning a value to a 
variable. Each generation has* two components: 

• The data description that describes the characteristics 
of the variable, including the completed attribute set 
and all fully evaluated extents 
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• The storage description that describes and locates the 
storage used to hold the values of the variable 

A reference to a variable accesses a generation of the 
variable. During program execution, the number of genera- 
tions of a variable is dynamic. If more than one generation 
of a variable exists, only one is usually accessible at any 
particular time. For instance, if a procedure that contains 
an automatic variable has been activated recursively several 
times, several generations exist for the automatic variable. 
A reference to the variable is a reference to the generation 
associated with the most recent activation. In the same 
activation, however, there might be three accessible genera- 
tions of a based variable and no accessible generations of a 
controlled variable. The storage type of a variable 
determines the number of generations and the time at which 
each generation is created. 

Each PL/I program has a pool of storage from which 
allocation units can be formed. The allocation unit is the 
basic unit for allocating and freeing storage associated with 
generations. The allocation unit contains the storage that 
holds the values of the variable. Allocation of a variable 
creates a generation and an associated allocation unit. The 
storage description of the generation fully describes the 
allocation unit, and the generation is called an allocated 
generation. Allocation of a variable is considered an 
indivisible operation for a variable. The variable to be 
allocated must be unsubscripted and cannot be a member. 
An array element cannot be allocated except in allocation of 
the entire array. A member cannot be allocated except in 
allocation of the entire containing structure. 

Freeing of a variable is the process of releasing an 
allocation unit and returning the storage to the available 
pool of storage from which the allocation unit was formed. 
When an allocated generation is freed, the allocation unit is 
undefined and the generation can no longer be referenced. 
Like allocation, freeing is considered an indivisible 
operation. The variable to be freed must be unsubscripted 
and cannot be a member. An individual array element or 
structure member cannot be freed. In addition, the data 
description and storage description of the variable to be 
freed must precisely match those of the allocated 
generation. 

Generations can be allocated and freed in the ways 
described for each storage type. The storage description 
part of a generation is different from an allocation unit for 
the following reasons: 

• A generation of certain types of variables can share the 
storage associated with another variable. In this case, 
the storage description part of a generation describes 
an allocation unit belonging to another variable. 

• Certain variables can have multiple allocation units 
available and can move a generation by means of 
locator values. The storage description part of the 
generation then describes a different allocation unit. 



• A particular generation can describe less than a 
complete allocation unit. Each reference in the 
program effectively creates a generation. For example, 
a generation created by a reference to a single element 
of an array has a storage description part that does not 
describe the complete allocated generation for the 
entire array. 

Each variable (except any member of a structure) has a 
storage type. Just as individual structure members and 
array elements cannot be allocated and freed, structure 
members and array elements do not have individual storage 
types. The available storage types are STATIC, 



AUTOMATIC, CONTROLLED, BASED, DEFINED, and 
parameter. The STATIC, AUTOMATIC, CONTROLLED, and 
BASED storage types are described in this section. A 
variable with the DEFINED attribute is defined on another 
variable and shares storage with that variable, as described 
under the DEFINED attribute in section 4. A variable with 
the parameter attribute is used as a received value in an 
invoked procedure, as described under the Parameter attri- 
bute in section 4 and described under Procedure Reference 
in section 6, References. 



Static Storage 

A static variable has the STATIC storage attribute. Each 
STATIC variable has one allocated generation. The genera- 
tion is allocated before program execution begins. Static 
generations cannot be allocated or freed during program 
execution. Since static storage is allocated before program 
execution begins, any array bounds, string lengths, or area 
sizes must be specified as literal constants. Initial values 
must be literal constants or expressions containing only 
literal constants. An example of static storage is shown in 
figure 3-19. 



DECLARE STAT STATIC CHARUOH 
/•GENERATION IS ALLOCATED BEFORE 
/•PROGRAM EXECUTION BEGINS 



STAT « +TESTM 



•/ 
•/ 



Figure 3-19. Static Variable Example 



Automatic Storage 

An automatic variable has the AUTOMATIC storage attri- 
bute. A generation for each automatic variable is allocated 
automatically each time the block in which the variable is 
declared is activated. If the block is already active, then 
the previous generations allocated for the previous activa- 
tions of the block are automatically saved. At any given 
time, multiple allocated generations for an automatic 
variable can exist, with one for each activation of the block 
in which the automatic variable is declared. When a block 
activation is terminated, each automatic generation allo- 
cated for that activation is freed. Automatic variables 
cannot be allocated or freed in any other way. Block 
activation and termination and the stacking of generations 
associated with block activations are described in section 2, 
Dynamic Program Structure. 

Each allocation of a generation for an automatic variable 
can involve evaluation of extent expressions and expressions 
in an INITIAL attribute. Extent expressions can be used for 
array bounds, string lengths, and area sizes. Extent 
expressions and expressions in an INITIAL attribute can 
contain references to other variables. An example of 
automatic storage is shown in figure 3-20. 

A local reference to an automatic variable accesses the 
generation associated with the current block activation. A 
nonlocal reference to an automatic variable accesses the 
generation associated with an activation that is part of the 
environment of the current block activation. 

When a generation is allocated for an automatic variable, 
the STORAGE condition is raised if sufficient storage space 
is not available. 
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t: 


BEfalN* 

DECLARE AUTO 
/•GENERATION 
/•BLOCK T IS 

• 


AUTOMATIC CHAR (10) 1 
IS ALLOCATED WHEN 
ACTIVATED 


*/ 
•/ 




AUTO = 
ENO Tl 


KEST*t 









Figure 3-20. Automatic Variable Example 



Controlled Storage 

A controlled variable has the CONTROLLED storage 
attribute. Each controlled variable has a pushdown stack of 
allocated generations. A generation for a controlled 
variable is allocated by execution of an ALLOCATE state- 
ment that names the variable. A generation is freed by 
execution of a FREE statement that names the variable. 
ALLOCATE statement execution causes the stack of allo- 
cated generations to be pushed down and the new generation 
to be added at the top. Each generation in the stack is 
maintained intact. FREE statement execution causes the 
top generation to be freed and causes the stack to be popped 
up. Block activation and termination have no effect on the 
stack of generations. A reference to a controlled variable 
at any given time in any block can only access the top 
generation in the stack of generations. 



Allocation and freeing of a controlled variable is completely 
under the control of the programmer. No value can be 
assigned to a controlled variable unless storage has been 
allocated. Any number of allocations can be made. If 
insufficient storage space is available for allocation of a 
generation, the STORAGE condition is raised. A controlled 
variable passed as an argument to a procedure cannot be 
allocated or freed within the procedure. 



Each allocation of a generation for a controlled variable can 
involve evaluation of extent expressions and expressions in 
an INITIAL attribute. Extent expressions can be used for 
array bounds, string lengths, or area sizes. Extent expres- 
sions and expressions in an INITIAL attribute cannot contain 
references to the controlled variable itself. An example of 
controlled storage is shown in figure 3-21. 



DECLARE CONT CONTROLLED CHARdOM 



LLOCATE CONT I 

•GENERATION IS ALLOCATED WHEN 

♦ALLOCATE STATEMENT IS EXECUTED 



CONT » tTEST*» 



•/ 
*/ 



Figure 3-21. Controlled Variable Example 



Based Storage 

A based variable has the BASED storage attribute. A based 
variable can be used for referencing generations of any 
storage type and for allocating and freeing based 
generations. 

A based reference always requires use of a based variable 
and a locator value. The based variable is used as the data 
description of the referenced generation; that is, the based 
variable is effectively a template. The locator value is used 
to supply the storage description of the referenced 
generation. The data description of the described storage, 
as allocated, must match the data description from the 
based variable. 

A based generation can be allocated by execution of an 
ALLOCATE statement that names the variable. When a 
based generation is allocated, a storage description is 
assigned to a locator variable. Each allocated generation is 
independent of any other allocated generations for the based 
variable. A based generation allocated in this way can be 
freed by execution of a FREE statement that uses the 
locator value created during allocation and uses a based 
variable whose data description matches the data descrip- 
tion of the allocated generation. 

When a based variable is allocated, any extent expressions 
and expressions in an INITIAL attribute are evaluated. 
Extent expressions can be array bounds, string lengths, or 
area sizes. Extent expressions in the declaration of a based 
variable are evaluated again each time the based variable is 
referenced. 

An extent for array bounds, string length, or area size of a 
member in a based structure can be saved as the value of 
another member of the same structure. See the description 
of REFER Option for Based Structures in section 4. 



Allocation of Based Generations 

A based generation can be allocated by execution of an 
ALLOCATE statement that names the based variable. The 
locator value that identifies the new generation is assigned 
to the variable specified by the SET option, or to the 
implicit locator variable specified in the declaration of the 
based variable. If the ALLOCATE statement has no SET 
option, a locator variable must have been supplied in the 
BASED attribute in the declaration of the based variable. If 
insufficient space is available for allocation, the STORAGE 
condition is raised. 

A based generation is allocated within an area if the 
ALLOCATE statement has an IN option, or if an assumed IN 
option can be constructed from the declaration of the 
locator variable. If insufficient space is available for the 
based generation in the area, the AREA condition rather 
than the STORAGE condition is raised. 

A based generation allocated by ALLOCATE statement can 
be freed by execution of a FREE statement that specifies 
the allocated based generation. During execution of a FREE 
statement, extents specified in the declaration of the based 
variable are evaluated. If the based generation is allocated 
in an area, the FREE statement can contain an IN option 
specifying the area, or an assumed IN option can be 
constructed from the declaration of the locator variable. 
The IN option must identify the area in which the based 
variable was allocated. Based generations allocated in an 
area are freed if the area generation is freed, or if the 
entire area is reassigned. 
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Examples of based storage are shown in figure 3-22. 



DECLARE BASE BASED (P) 
OECLAHE P POINTER! 



CHARUOM 



ALLOCATE BASE* 

/•GENERATION IS ALLOCATED WHEN 
/•ALLOCATE STATEMENT IS EXECUTED 
P->BASE = tTESTt* 



DECLARE BASE2 BASED CHARUOOM 
DECLARE OFF OFFSET! 
OECLAHE AREA23 AREAO00); 



ALLOCATE BASE2 SET (OFF) INUREA23M 
/•GENERATION IS ALLOCATED WHEN 
/•ALLOCATE STATEMENT IS EXECUTED 



♦/ 
•/ 



•/ 
•/ 



Figure 3-22. Based Variable Examples 



Based generations can be implicitly allocated for use as 
record I/O buffers in one situation involving output and 
another involving input. A based generation allocated for 
use as an I/O buffer is called an allocated buffer. No 
implicit allocation can take place within an area. The 
locators used must be pointer variables. 



A based generation for use as an output buffer is implicitly 
allocated by execution of a LOCATE statement. The 
LOCATE statement specifies the record output file and 
names a based variable. When the based generation has been 
allocated with the LOCATE statement, values can be 
assigned to the based variable. Subsequent WRITE state- 
ment execution, LOCATE statement execution, or closing of 
the file causes the based generation to be written as an 
output record and then freed. When an output buffer is 
allocated by LOCATE statement execution, the SET option 
of the LOCATE statement can specify the pointer variable 
to which the pointer value is assigned. If the LOCATE 
statement has no SET option, the pointer value is assigned to 
the implicit locator specified in the declaration of the based 
variable. If no SET option is used, an implicit locator must 
be available. 



A based generation for use as an input buffer is implicitly 
allocated by execution of a READ statement with the SET 
option. The based generation acts as an input buffer for the 
record input or record update file specified by the state- 
ment, and the pointer value identifying the based generation 
is assigned to the pointer variable specified in the SET 
option. The READ statement does not specify a based 
variable, but the only method of access to the input record 
is by reference to a based variable. The based variable must 
correctly describe the input record. Subsequent READ 
statement execution (with or without a SET option), WRITE 
statement execution, REWRITE statement execution, 
DELETE statement execution, or closing of the file causes 
the based generation to be implicitly freed. An example of 
based storage using implicit allocation is shown in 
figure 3-23. 



DCL BASE3(10) BAS£0(PTR3> 
DECLARE PTR3 POINTER! 



CHARUOM 



READ FILE (TEMP) SET(PTR3>! 
/•GENERATION IS ALLOCATED WHEN 
/•READ STATEMENT IS EXECUTED 



•/ 
•/ 



Figure 3-23. Based Variable with Implicit 
Allocation Example 

Access to Based Generations 

A based generation is accessible if a locator value that 
points to the generation is accessible. When a locator 
variable is assigned a new value, the previous value of the 
locator variable is lost. If all locator values that point to a 
based generation are lost, access to the based generation is 
not possible. In this case, the based generation remains 
allocated for the duration of program execution. 

Because of the properties of locator variables, based 
generations can be chained together for list processing. If 
one generation of a based structure contains locator 
variables that point to other based structures, chains of 
based generations can be constructed dynamically. When 
based generations are chained together with locator vari- 
ables, a null locator value can be used to set the last pointer 
in a forward chain and the first pointer in a backward chain. 
A null locator value does not address a based generation and 
must not be used in a locator-qualified reference. A null 
locator value can be assigned to a locator variable, and 
locator variables can be tested for the null locator value. A 
null locator value is returned by the NULL builtin function 
described in section 11, Builtin Functions. 

AGGREGATES 

An aggregate is an organized collection of scalar data 
elements. A scalar is a single data item. Scalars can be 
collected in one way to form arrays or in another way to 
form structures. Scalars, arrays, or structures can be 
repeatedly collected to form larger arrays or structures. 
The particular organization that is used to collect the 
elements or members of an aggregate is called the 
aggregate type. 

An array is an organized collection of array elements. All 
elements of an array have the same name and the same set 
of attributes. Elements are distinguished from one another 
by subscripts that specify the relative positions of elements 
within the array. 

A structure is an organized collection of structure members. 
Each member has a different name and can have a different 
set of attributes. Each member is referenced by its name. 

The following data elements can exist only as scalars and 
cannot be arrays or structure members: 

• Literal constants 

• Er.-.\ c nstants 

• Porn st constants 

• Fi i -.:■>-:. lants 
« Entry variables 

• File variables 
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The following data elements can exist as sealars or as arrays 
but cannot be structure members: 

• Label constants 

The following data elements can exist as sealars, arrays, or 
structure members: 

• Variable: except entry o •:'.' ? 

• Structures 



SCALARS 

A scalar variable or named constant has a name and a data 
type. A scalar does not have the dimension attribute or the 
structure attribute. A reference to a scalar variable is a 
scalar reference. All sealars have the aggregate type 
scalar; that is, they have an aggregate type which indicates 
that they are not aggregates. Each scalar named constant 
has a single value. Each generation of a scalar variable has 
a single value. Note that a scalar area variable has a single 
area value; the area value is scalar even if arrays are 
allocated within the area. 



rightmost subscript varying most rapidly. In the array 
G(3,5), the array element G(l,l) immediately precedes the 
array element G(l,2), and G(l,5) immediately precedes the 
array element G(2,l). The array elements G(2,l) and G(3,l) 
are not contiguous in storage. 

References to array elements are subscripted references, as 
described in section 6, References. Examples of arrays are 
shown in figure 3-24. 



DECLARE F(6) ChAR(lZ) INIT(«>><1>+ ♦>'! 
DECLARE GO. 5) FIXED DEC INIT((15)0M 



F<2) 



+SPARE PARTS* I 



6<1»2) - 125.431 



Figure 3-24. Array Examples 



ARRAYS 

An array variable or named constant has a name and the 
dimension attribute. Each element of the array has the 
same name as the array. The number of dimensions is called 
the dimensionality of the array. An array can have as many 
as 32 dimensions. To identify a particular element of an 
array, a reference must specify one subscript for each 
dimension of the array; each subscript specifies the relative 
position of the element, measured along one of the 
dimensions. 

Each dimension has an extent that specifies the range of 
subscript values permitted for that dimension. The extent 
for each dimension consists of a lower bound and an upper 
bound. The lower bound and upper bound together are called 
the array bounds. If the lower bound is not specified, the 
lower bound is assumed to be 1. The span of a dimension is 
the number of possible subscript values for the dimension. 
The array A(5) has five possible subscripts for the dimension, 
and B(4:6) has three possible subscripts. 

The number of elements in the entire array is the product of 
the spans of all dimensions. The array C(3,4) is an array of 
12 elements, D(10,5,20) is an array of 1000 elements, and 
E(2:5,-16:-9) is an array of 32 elements. 

The aggregate type of the array is defined by the dimension 
attribute specified for the array and the aggregate type of 
the array elements. Two arrays have the same aggregate 
type only if their dimensionality and all array bounds match 
precisely. The array bounds must match; it is not sufficient 
for the spans to be identical. 

Every array has the variable attribute or the constant 
attribute. Each data type attribute specified for an array is 
applied uniformly to all elements of the array. Dimension 
applies to the array itself. Storage type and the scope 
attribute INTERNAL or EXTERNAL can apply to the entire 
array. The INITIAL attribute can apply to the entire array 
but is used to specify initial values for individual elements. 

The physical organization of an array in storage is linear. 
The elements of an array with one dimension are stored in 
order of increasing subscripts. In the array F(6), the array 
element F(3) immediately precedes the array element F(4). 
Multidimensional arrays are stored in order, with the 



STRUCTURES 

A structure variable has a name and the structure attribute. 
Each member of the structure is either a variable, with a 
name and a data type, or a structure. A structure that is a 
member of a structure is called a substructure. The 
arrangement of substructures and members within the 
structure is called the configuration of the structure. 

Each structure has level numbers that indicate, in outline 
form, the hierarchical organization of the structure. The 
structure is declared with the level number one. Members 
of the structure are declared with a greater level number. 
If a member is a substructure, the members of that 
substructure are declared with a greater level number, and 
so on. The specified level number for a structure must be 
level one, and the specified level numbers for substructures 
and members must be greater than one. If a structure called 
ID has a substructure NAME and members FIRST, MIDDLE, 
and LAST, the level numbers can be: 



ID 


structure 


level 1 


NAME 


substructure 


level 2 


FIRST 


member 


level 3 


MIDDLE 


member 


level 3 


LAST 


member 


level 3 



The aggregate type of a structure is defined by the structure 
attribute and the ordered list of aggregate types for the 
structure members. Two structures have the same aggre- 
gate type only if the members are arranged in the same 
order and the aggregate type of each member corresponds. 
The names of the members are not relevant. 



The attributes of a level 1 structure are variable, a storage 
type attribute, a scope attribute INTERNAL or EXTERNAL, 
and an optional alignment attribute. The attributes of a 
substructure are variable, member, structure, INTERNAL, 
and an optional alignment attribute. Any structure can be 
declared with the LIKE attribute that expands a structure to 
the form of another structure. A based variable that is a 
structure can contain members with REFER options that 
hold the values of extents for other members. The 
attributes of a member are variable, member, INTERNAL, 
and the specified data type. 
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The physical organization of a structure in storage is linear. 
Members are stored in the order in which they appear in the 
declaration. 

References to members of the structure can be simple 
references or structure-qualified references, as described in 
section 6. An example of a structure is shown in 
figure 3-25. 





DECLARE 1 ID, 




2 NAME, 




3 FIRST CHAR.U2), 




3 MIDDLE CHAR(l), 




3 LAST CHAR(22); 


1 


READ FILE(F) INTO(ID) 




IF (LAST = 'SMITH') 




THEN CALL WHICHONE ( I D ) ; 



Figure 3-25. Structure Example 



ARRAYS AND STRUCTURES 

Arrays and structures represent different organizational 
approaches for data elements. Arrays and structures are 
considered aggregates because the two different approaches 
can be combined in Various ways. 



A structure containing arrays is an undimensioned structure 
that has one or more members that are arrays. An example 
is shown in figure 3-26. 



An array of structures is a dimensioned structure. An 
example is shown in figure 3-27. Note that the members 
inherit the dimensionality of the structure. 



An array of structures containing arrays is a dimensioned 
structure that has one or more members that are arrays. An 
example is shown in figure 3-28. Note that the members 
inherit the dimensionality of the structure, and the addi- 
tional dimensions are effectively added to the left of any 
specified dimensions for the members. 





DECLARE 1 A, 

2 B(4) CHARACTERS), 
2 C(4) FIXED DECIMAL; 

The storage order is 












B{1) 


B(2) 


B(3) 


B(4) 


CO) 


C(2) 


C(3) 


C(4) 



















Figure 3-26. Structure Containing Arrays Example 





DECLARE 1 D(4), 

2 E FIXED DECIMAL, 
2 F BITI12); 

The storage order is 






Ed) 


F<1) 


E(2) 


F{2) 


E(3) 


F(3) 


E(4) 


F(4) 











Figure 3-27. Array of Structures Example 



DECLARE t 6(2), 

2 H(3) FLOAT BINARY, 
2 J FIXED BINARY; 



The storage order is 



H(1,1) 


H{1,2) 


H(1,3) 


JU) 


H(2,1) 


H(2,2) 


H{2,3) 


J(2) 



Figure 3-28. Array of Structures Containing Arrays Example 
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ATTRIBUTES 



Attributes are descriptive and defining characteristics of 
data used in a PL/I program. This section discusses the 
categories of attributes and describes individual attributes. 
Attribute information is directly associated with declara- 
tions and defaults as described in section 5, Declarations. 
Other sections of this manual contain descriptions that 
directly or indirectly involve attributes. 

Each identifier used in a PL/I program has attributes 
describing the characteristics of the identifier. The 
attributes for an identifier used in the program indicate 
whether the identifier is a variable, a named constant, a 
programmer-named condition, or a builtin function name. 
Additional attributes are used to indicate the specific use of 
the identifier and the type of value represented. Since 
identifiers are named, the attributes for an identifier are 
associated with the name. Attributes for identifiers can be 
specified in a DECLARE statement. Attributes can also be 
specified explicitly or contextually by usage of the 
identifier. The compiler adds default attributes as 
necessary to create a completed set of attributes for the 
identifier. 

A descriptor is a list of attributes not directly associated 
with an identifier. Descriptors are used in declarations of 
entry constants and entry variables. A parameter descriptor 
specifies the attributes of a parameter received by an 
invoked procedure. A returns descriptor specifies attributes 
of the value returned from an invoked function procedure. 
Attributes for descriptors can be specified in the ENTRY or 
RETURNS attribute in a DECLARE statement or in the 
RETURNS option in a PROCEDURE or ENTRY statement. 
Descriptors are completed by the compiler with additional 
default attributes. 

Each literal constant has attributes implied by the actual 
form of the constant. Attributes of the literal constant 
affect data manipulation and assignment operations. 

The attributes that can be used for variables, named 
constants, conditions, builtin functions, parameter descrip- 
tors, returns descriptors, and literal constants are described 
separately. By convention, full upper case is used for 
attributes that can be specified by keyword. Lower case is 
used for attributes recognized in some other way. Descrip- 
tions of individual attributes are provided in alphabetic 
order, and a summary of attributes is provided at the end of 
this section. 

ATTRIBUTES FOR VARIABLES 

Each identifier used as a variable has the variable attribute. 
Each variable can have attributes for scope, storage type, 
aggregation, alignment, data type, and initialization. The 
variable attribute is implied and cannot be declared 
explicitly by DECLARE statement. An illustration of the 
attributes for variables is shown in figure 4-1. 

SCOPE ATTRIBUTES 

The scope attributes are 

• INTERNAL 

• EXTERNAL 



The scope attribute indicates the scope within which the 
declaration of the variable is applicable. Scope applies to a 
scalar or an aggregate. Scope applies to the entire array 
rather than an individual array element and to the entire 
structure rather than an individual structure member. 



STORAGE TYPE ATTRIBUTES 

The storage type attribute specifies the way in which the 
variable is associated with storage. Storage type applies to 
a scalar or an aggregate. Storage type applies to the entire 
array rather than an individual array element and to the 
entire structure rather than an individual structure mem- 
ber. The storage type of a variable can be 



• 


AUTOMATIC 


• 


BASED 


• 


CONTROLLED 


• 


STATIC 


• 


Parameter 


• 


DEFINED 



The AUTOMATIC, BASED, CONTROLLED, and STATIC 
attributes describe variables for which storage can be 
allocated, as described in section 3, Data Elements. The 
DEFINED and parameter attributes describe variables that 
share storage belonging to other variables. 



AGGREGATION AND ALIGNMENT ATTRIBUTES 



The attributes that describe the aggregate type and align- 
ment of a variable are 



• Dimension 

• Structure 

• Member 

• ALIGNED 

• UNALIGNED 

The dimension attribute indicates that the variable is an 
array. The structure attribute indicates that the variable is 
the name of a structure. The member attribute indicates 
that the variable is contained in a structure. A substructure 
has both the structure and the member attributes. A scalar 
does not have the dimension or the structure attribute. 



The ALIGNED and UNALIGNED attributes indicate the 
alignment of the variable. Any variable not declared as a 
structure has one of the alignment attributes. 
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variable 




( AUTOMATIC \ 
) BASED I 

j DEFINED I 
vparameter / 



member 




(static ) 

\ controlledj 



[dimension] 



(aligned ) 
(unaligned ) 



ENTRY[RETURNS] 

LABEL 

FILE 

AREA 

POINTER 

OFFSET 



[ALIGNED "1 

[unaligned] 




REAL 

(BINARY \ 
\DECIMAL) 
(FIXED \ 
I FLOAT/ 

precision 



(BIT » 

^CHARACTER) 
( nonvarying i 
tvARYING/ 



PICTURE 
[REAL] 




structure 



[INITIAL] 



NOTE: not all restrictions on combinations of attributes are shown. 



Figure 4-1. Attributes for Variables 



DATA TYPE ATTRIBUTES 

The data type attributes describe the type of values 
represented by the variable. Data type attributes cannot be 
specified for a structure. If specified for an array, any data 
type attribute applies to all elements of the array. The data 
type attributes can be categorized as noncomputational or 
computational. The computational data type attributes are 
further categorized as arithmetic, string, or pictured. 



Noncomputational Data Type Attributes 

A noncomputational data type attribute indicates the use of 
the variable. The noncomputational data type attributes are 

• ENTRY [RETURNS] 

• LABEL 
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• FILE 

• AREA(size) 

• POINTER 

• OFFSET 

The ENTRY attribute indicates an entry variable. Entry 
variables can only be used as entry parameters. The 
RETURNS Httni'Hte, which implies the ENTRY attribute, 
indicates that the entry constant values of the entry 
variable represent function entry points. The LABEL 
attribute indicates a label variable. The FILE attribute 
indicate? a file variable. File variables can only be used as 
fi]« pHPHmeters. The AREA wtt-itujy indicates an area 
variable and specifies the size of the area. The POINTER 
attribute or the OFFSET attribute indicates a locator 
variable. 



Arithmetic Data Type Attributes 

The arithmetic data type attributes indicate the type of 
arithmetic values represented by the variable. The arith- 
metic attributes are 

• REAL 

• BINARY 

• DECIMAL 

• FIXED 

• FLOAT 

• Precision 

The REAL attribute indicates the mode of the arithmetic 
values. The BINARY or DECIMAL attribute indicates the 
base of the values. The FIXED or FLOAT attribute 
indicates the scale of the values. The precision attribute 
indicates the precision of the values. 



String Data Type Attributes 

The string data type attributes indicate the type of string 
value represented by the variable. The string attributes are 

• BIT(length) 

• CHARACTEROength) 

• Nonvarying 

• VARYING 

The BIT or CHARACTER attribute indicates the type of 
string and the maximum length of the string. The 
nonvarying or VARYING attribute indicates whether the 
string can ever be treated as being shorter than the 
specified maximum length. 



Pictured Data Type Attribute 

The pictured data type attribute indicates that the variable 
represents pictured values, either pictured numeric or 
pictured character values. The pictured attribute is 

• PICTURE 



The PICTURE attribute is associated with a pictured value. 
The REAL attribute can accompany the PICTURE attribute 
for a pictured numeric item. Other arithmetic attributes 
cannot be declared but are implied by the picture 
specification. 



Initialization Attribute 

The INITIAL attribute specifies initial values to be assigned 
when storage is allocated for the variable. The initialization 
attribute is 

• INITIAL 

Some restrictions on the use of INITIAL are described later 
in this section under INITIAL. 



ATTRIBUTES FOR NAMED CONSTANTS 

Each identifier used as a named constant has the constant 
attribute. Each named constant has a noncomputational 
data type attribute. An aggregation attribute is possible. 
Each named constant that is a file constant has a -ember of 
possible file description attributes. The constant attribute 
is implied and cannot be declared explicitly in a DECLARE 
statement. An illustration of the attributes for named 
constants is shown in figure 4-2. 



SCOPE ATTRIBUTES 

The scope attributes are 

• INTERNAL 

• EXTERNAL 

The scope attribute indicates the scope within which the 
declaration of the named constant is applicable. 

AGGREGATION ATTRIBUTE 

The attribute that can describe the aggregate type of a 
named constant is 

• Dimension 

The dimension attribute indicates an array of named 
constants. The dimension attribute ea« be used for an arr«v 
of label constants. Dimension cannot be used for other 
types of constants. 

NONCOMPUTATIONAL DATA TYPE ATTRIBUTES 

A noncomputational data type attribute indicates the use of 
the named constant. The noncomputational data type 
attributes are 

• ENTRY [RETURNS] 

• LABEL 

• Format 

• FILE 

The ENTRY attribute indicates an entry point for a 
procedure. The RETURNS attribute, which implies the 
ENTRY attribute, indicates an entry point of a function. 
The LABEL attribute indicates a label constant. The format 
attribute indicates a format constant. The FILE attribute 
indicates a file constant. 
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Figure 4-2. Attributes for Named Constants 



FILE DESCRIPTION ATTRIBUTES 

The file description attributes apply only to named constants 
with the FILE attribute. File description attributes are not 
necessarily complete during compilation. Application of file 
description attribute defaults occurs at run time when the 
file constant is opened. The file description attributes are 

• STREAM 

• RECORD 

• INPUT 

• OUTPUT [PRINT] 

• UPDATE 

• SEQUENTIAL 

• DIRECT 

• KEYED 

• ENVmONMENTfoptions) 

All file description attributes except ENVIRONMENT imply 
the FILE attribute. The STREAM or RECORD attribute 
indicates the type of file I/O operations (stream I/O or 
record I/O). The INPUT, OUTPUT, or UPDATE attribute 
indicates the usage of the file (UPDATE is only appropriate 
with RECORD). The PRINT attribute, which implies the 
OUTPUT attribute, indicates that a file is intended for 
printing (PRINT is only appropriate with STREAM). The 
SEQUENTIAL or DIRECT attribute applies to record I/O, 



indicating the type of access to records of the file. The 
KEYED attribute can be used with DIRECT or SEQUENTIAL 
to indicate that keyed operations can be performed on the 
file. The ENVIRONMENT attribute specifies CYBER 
Record Manager file processing options. 

ATTRIBUTES FOR CONDITIONS 

Each identifier used as an identifier in a programmer-named 
condition has the condition attribute and the following scope 
attribute: 

• EXTERNAL 

No other attributes apply to a programmer-named condition. 
The condition attribute is implied and cannot be explicitly 
declared in a DECLARE statement. An illustration of 
attributes fo? prograrBrnar-nsmeiJ conditions is sho*-.i in 
figure 4-3. 



condition 



EXTERNAL 



Figure 4-3. Attributes for Programmer-Named Conditions 
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ATTRIBUTES FOR BUILTIN FUNCTIONS 



Each identifier used as the name of a builtin function has 
the BUILTIN attribute and the following scope attribute: 

• INTERNAL 

No other attributes apply to the name of a builtin function. 
The BUILTIN attribute can be explicitly declared in a 
DECLARE statement. An illustration of attributes for 
builtin functions is shown in figure 4-4. 



BUILTIN 



INTERNAL 



Figure 4-4. Attributes for Builtin Functions 



descriptor are similar to the attributes for a parameter. An 
illustration of attributes for parameter descriptors is shown 
in figure 4-5. 

Parameter descriptors have no scope or storage type. The 
parameter descriptor can have the same attributes as a 
parameter, except that the INITIAL attribute is not 
allowed. All noncomputational, arithmetic, string, or 
pictured data type attributes are available. 



ATTRIBUTES FOR RETURNS DESCRIPTORS 

Each returns descriptor specifies alignment and data type 
attributes of the value returned from a function. An 
illustration of attributes for returns descriptors is shown in 
figure 4-6. 

''■-•-*"- 
v atgre&ttoi attributes. Return, 
descriptors can have alignment attributes and the following 
noncomputational data type attributes: 



ATTRIBUTES FOR PARAMETER 
DESCRIPTORS 

Each parameter descriptor specifies aggregation, alignment, 
and data type attributes of values received as parameters in 
an invoked procedure. The attributes for a parameter 



• AREA(size) 

• POINTER 

• OFFSET 



All arithmetic, string, or pictured data type attributes are 
available. The INITIAL attribute cannot be used. 



[dimension] 
[member] 



(ALIGNED \ 
(UNALIGNED* 




[ALIGNED "1 
unaligned] 







REAL 


/entry [RETURNS^ 




(BINARY \ 
(DECIMAL/ 


\ LABEL / 




)file \ 




/FIXED \ 
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precision 
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(BIT \ 
(CHARACTER) 
(nonvaryinq) 
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PICTURE 
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structure 













NOTE: not all restrictions on combinations of attributes are shown. 



Figure 4-5. Attributes for Parameter Descriptors 
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Figure 4-6. Attributes for Returns Descriptors 



ATTRIBUTES FOR LITERAL CONSTANTS 

Each literal constant has the constant attribute and attri- 
butes implied by the actual form of the literal constant. A 
literal constant can be arithmetic, bit, or character, as 
described in section 3, Data Elements. An arithmetic 
constant has arithmetic attributes identical to those avail- 
able for variables. A string constant can be a bit constant 
with the BIT attribute and a nonvarying length, or can be a 
character constant with the CHARACTER attribute and a 
nonvarying length. 



ATTRIBUTE DESCRIPTIONS 

The description of each attribute includes the purpose of the 
attribute and the syntax used when the attribute is speci- 
fied. Information about conflicts and implications is 
provided, as well as other information concerning the use of 
the attribute. Attribute descriptions are in alphabetic 
order, except that certain attribute descriptions have been 
merged in the following way: 



LIKE 

Member 

Nonvarying 

POSITION 

UNALIGNED 



Listed under Structure 
Listed under Structure 
Listed under VARYING 
Listed under DEFINED 
Listed under ALIGNED 



ALIGNED AND UNALIGNED ATTRIBUTES 

The ALIGNED and UNALIGNED attributes specify the 
alignment of values in storage. An aligned value is aligned 
on a word boundary, and an unaligned value can be packed 
into storage at the next available location. The alignment 
of values can affect processing time, I/O time, and storage 
requirements. In general, ALIGNED leads to decreased 
processing time, increased I/O time for record I/O, and 
increased storage requirements. In general, UNALIGNED 
leads to the opposite. 

ALIGNED and UNALIGNED are alignment attributes used 
for variables, parameter descriptors, and returns descrip- 
tors. An alignment attribute can be specified for a variable 
that is a scalar, array, or structure. When an alignment 



attribute is specified for an array, all elements of the array 
have the same alignment attribute. When an alignment 
attribute is specified for a structure, the alignment is 
propagated through the structure. The ALIGNED attribute 
can be specified by keyword. The UNALIGNED attribute 
can be specified by keyword and can also be abbreviated. 
The syntax of ALIGNED is shown in figure 4-7, and the 
syntax of UNALIGNED is shown in figure 4-8. Examples of 
ALIGNED and UNALIGNED are shown in figure 4-9. 



ALIGNED 



Figure 4-7. ALIGNED Attribute Syntax 



(unaligned) 

{UNAL J 



Figure 4-8. UNALIGNED Attribute Syntax 



DECLARE A FIXEO BINARY(8»2H 




/•default aligned 


•/ 


DCL B CHARACTER 110)1 




/•DEFAULT unaligned 


•/ 


DCL C<4> CHARACTER (S»l 




/•DEFAULT UNALIGNED- ARRAY PACKEO 


•/ 


DCL 1 P UNALIGNED* 




2 Q. 




3 R(1S) BIT(5>. 




3 S CHARACTER (2> ALIGNED* 




2 T ALIGNED* 




3 V CHARACTER (3) t 




/•R UNALIGNED FROM a FROM P 


•/ 


/•S ALIGNED AS DECLARED 


•/ 


/•V ALIGNED FROM T 


•/ 



Figure 4-9. ALIGNED and UNALIGNED Attribute Examples 
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The default alignment for BIT, CHARACTER, and PICTURE 
data is UNALIGNED. The default is ALIGNED for all other 
computational and noncomputational data. When 

UNALIGNED is used for BIT, CHARACTER, or PICTURE 
data, the specified packing occurs only for array elements or 
structure members with nonvarying length. 

Alignment is propagated through a structure declared as 
ALIGNED or UNALIGNED. Each substructure or member 
can also be declared with an alignment. Alignment 
propagates from the structure to the members, level by 
leveL The member receives the propagated alignment 
attribute unless the member is declared with an alignment 
attribute. Alignment attributes are not meaningful for 
structures or substructures, but alignment is propagated to 
each member not explicitly declared as ALIGNED or 
UNALIGNED. If LIKE is used in the declaration of a 
structure, the alignment propagates after the expansion 
caused by the LIKE attribute is effective. 

If a variable shares storage with another variable, alignment 
attributes must correspond for correct access. The align- 
ment must correspond when a defined variable is defined on 
the host variable; if string overlay defining is used, both the 
defined variable and the host variable must be completely 
unaligned. The alignment must correspond when a based 
variable is used to access a generation allocated for another 
variable. 

Alignment of an argument used in a procedure or function 
reference and alignment of the corresponding parameter in 
the invoked procedure are significant, as described in 
section 6, References. If the alignment does not agree, a 
dummy argument is created even if alignment is not 
meaningful for the argument being passed. Since the use of 
dummy arguments that are aggregates is not supported, the 
alignment of an argument that is an array or structure must 
match the alignment of the corresponding parameter in the 
r.vokftd procedure. 

AREA ATTRIBUTE 

The AREA attribute specifies that the variable or descriptor 
represents an area that can contain area values. An area is 
allocated storage in which based generations can be dynam- 
ically allocated and freed, as described in section 3, Data 
Elements. The area has a size that is specified or supplied 
by default. 

The AREA attribute is a noncomputational data type 
attribute used for a variable, parameter descriptor, or 
returns descriptor. The AREA attribute conflicts with any 
other data type. AREA can be specified for a variable that 
is a scalar or an array. AREA conflicts with the structure 
attribute. The AREA attribute can be specified by keyword. 
The syntax of AREA is shown in figure 4-10, and examples 
of the AREA attribute are shown in figure 4-11. 



The specification of size is optional. The default size is 
150 words. The specification of size is an extent. The rules 
for extents are described later in this section under Extents. 



OCL AREA* AREA! 
/•DEFAULT SIZE 150 HORDS 




•/ 


DCL AREAS AREA (750) » 
/•SIZE AS DECLARED 




•/ 


ALLOCATE B SET CXYZ) INUREACM 
/•CONTEXTUAL DECLARATION OF AREAC 


•/ 


FREE B IN(AREAO); 
/•CONTEXTUAL DECLARATION OF 


AREAO 


•/ 


DCL EFO OFFSET (AREAEU 
/•CONTEXTUAL DECLARATION OF 


AREAE 


•/ 



Figure 4-11. AREA Attribute Examples 



AUTOMATIC ATTRIBUTE 

The AUTOMATIC attribute specifies that a variable is an 
automatic variable. A generation for the variable is 
allocated automatically whenever the block that contains 
the declaration of the variable is activated, as described in 
section 3, Data Elements. One generation of the automatic 
variable exists for each unterminated activation of the 
block. 

The AUTOMATIC attribute is a storage type attribute for 
variables. AUTOMATIC conflicts with any other storage 
type and cannot be used with the EXTERNAL attribute. The 
scope of an automatic variable is always INTERNAL. 
AUTOMATIC can be specified for a variable of any 
aggregate type; AUTOMATIC cannot be specified for any 
individual array element or structure member. The AUTO- 
MATIC attribute can be specified by keyword and can be 
abbreviated. The syntax of AUTOMATIC is shown in 
figure 4-12, and examples of the AUTOMATIC attribute are 
shown in figure 4-13. 



) AUTOMATIC ( 
(AUTO J 



Figure 4-12. AUTOMATIC Attribute Syntax 



AREA [(size)] 



where size is an extent for the 
number of 60-bit words in the area 



Figure 4-10. AREA Attribute Syntax 



DECLARE OEF AUTOMATIC I 

OCL ABCt 

/•DEFAULTS TO AUTOMATIC 

DECLARE 6HJ INTERNAL! 
/•DEFAULTS TO AUTOMATIC 



•/ 
•/ 



AREA can be explicitly declared by DECLARE statement 
for a variable or explicitly specified for a descriptor. 
Contextual declaration of AREA occurs for an identifier 
used in an IN option of an ALLOCATE or FREE statement 
and for an identifier used in the OFFSET attribute. 
Contextual declaration involves use of the default area size. 



Figure 4-13. AUTOMATIC Attribute Examples 



AUTOMATIC is the default storage type for any internal 
variable. The AUTOMATIC storage type can be declared by 
DECLARE statement or can be supplied by default. 
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BASED ATTRIBUTE 

The BASED attribute specifies that a variable is a based 
variable. A based variable can be used to reference 
generations of any storage type and to allocate and free 
based generations, as described in section 3, Data Elements. 
A based reference always requires use of a based variable 
and a locator value. The based variable is used as the data 
description of the referenced generation. The locator value 
is used to supply the storage description of the referenced 
generation. The data description of the described storage, 
as allocated, must match the data description from the 
based variable in one of the following ways: 

• Overlaid strings: The referenced generation and the 
based variable each represent either a string or an 
aggregate of strings, and every string in both is the 
same type, either all bit strings or an arbitrary mixture 
of character strings and pictured variables. No string 
can be VARYING or ALIGNED, and there can be no 
REFER options in the based variable. The referenced 
generation and the based variable can have any aggre- 
gate type. The total length of each is the sum of the 
string lengths. The total length of the variable must be 
less than or equal to the total length of the referenced 
generation. 

• Complete correspondence: The referenced generation 
and the based variable must have the same aggregate 
type. The components (except structures) of the 
referenced generation and the based variable must 
correspond completely in data type and alignment, 
except that corresponding OFFSET attributes need not 
hajve identical area references. Wherever the based 
variable has a REFER option, the value of the refer- 
enced structure member is used to test correspondence 
of a string length, area size, or array bounds. 

• Left to right equivalence: The referenced generation 
and the based variable are both undimensioned struc- 
tures. If the based variable has n immediately 
contained members, those members must completely 
correspond (as described earlier) to the first n imme- 
diately contained members of the referenced genera- 
tion. The referenced generation can have additional 
members. 

The BASED attribute is a storage type attribute for 
variables. BASED conflicts with any other storage type and 
with the EXTERNAL attribute. The scope of a based 
variable is always INTERNAL. BASED can be specified for 
a variable of any aggregate type; BASED cannot be specified 
for any individual array element or structure member. The 
BASED attribute is specified by keyword. The syntax of 
BASED is shown in figure 4-14, and examples of the BASED 
attribute are shown in figure 4-15. 



variable with no explicit locator-qualifier is encountered in 
program execution, the locator-reference is evaluated. The 
locator-reference serves as an implicit locator for refer- 
ences if an explicit locator is not supplied. The locator- 
reference can be omitted if all references to the based 
variable supply an explicit locator and the SET option is 
present on all ALLOCATE and LOCATE statements used to 
allocate the based variable. The locator used in ALLOCATE 
and LOCATE statements cannot be a function reference and 
must be a scalar locator variable. 



DCL B BASEOl 
/•LOCATOR NOT SUPPLIED 

DECLARE C BASED (RSHl 
/•LOCATOR SUPPLIED 



•/ 



Figure 4-15. BASED Attribute Examples 



BINARY ATTRIBUTE 

The BINARY attribute specifies that an arithmetic value has 
the base binary. BINARY and DECIMAL are the arithmetic 



The BINARY attribute is an arithmetic data type attribute 
for variables, descriptors, and literal constants. BINARY 
conflicts directly with DECIMAL and cannot be used as an 
attribute of any nonarithmetic quantity. BINARY can be 
specified for a variable that is a scalar or an array. 
BINARY conflicts with the structure attribute. BINARY is 
compatible with REAL and with an arithmetic scale FIXED 
or FLOAT. The BINARY attribute can be specified by 
keyword and can be abbreviated. The syntax of BINARY is 
shown in figure 4-16, and examples of the BINARY attribute 
are shown in figure 4-17. 




Figure 4-16. BINARY Attribute Syntax 



DECLARE F FIXED BINARY « 14»3> I 
DCL 66 FLOAT BIN (12) I 



BASED [(locator-reference)] 

where locator-reference is a 
variable or function reference 



Figure 4-14. BASED Attribute Syntax 



The BASED attribute must be explicitly declared by 
DECLARE statement. The locator-reference is an optional 
reference to a locator value (pointer or offset). The locator 
value can be a variable or a value returned from a function. 
For allocation of a based variable, the locator-reference 
must be a variable. Whenever a reference to a based 



Figure 4-17. BINARY Attribute Examples 



BINARY can be declared explicitly on the DECLARE 

statement or can be supplied by default. BINARY is 

supplied as the standard arithmetic default. 

-.:-' be supplied n some cases 

defaults are applied. A precision attribute suffix of the 

form (p ;£ (P>°) can follow the BINARY attribute in an 

explicit declaration. 



BIT ATTRIBUTE 

The BIT attribute specifies that a value is a bit string value. 
BIT and CHARACTER are possible types of string values. 
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The BIT attribute is a string data type attribute for 
variables, descriptors, and literal constants. BIT conflicts 
with CHARACTER and any other data type attribute except 
VARYING and nonvarying. BIT can be specified for a 
variable that is a scalar or an array. BIT conflicts with the 
structure attribute. The BIT attribute is specified by 
keyword. The syntax of BIT is shown in figure 4-18, and 
examples of the BIT attribute are shown in figure 4-19. 



BIT [(length)] 

where length is an extent for the 
number of bits in the string 



Figure 4-18. BIT Attribute Syntax 



DECLARE T bIT(6>« 
/•LENtiTH AS DECLARED 

DECLARE R BIT! 
/•DEFAULT LENGTH OF 1 

DCL H eiT(12> VARYING! 
/•VARYING UlITh MAX LENGTH OF 12 



•/ 



Figure 4-19. BIT Attribute Examples 



The string is assumed to be nonvarying unless VARYING is 
specified. If the bit string is nonvarying, a constant length 
is maintained. If the bit string is VARYING, the bit string 
can have a current length smaller than the specified 
maximum length of the string. Length of the bit string can 
be from through 131071 bits. 

The specification of length is optional. The default length is 
1 bit. The specification of length is an extent. The rules for 
extents are described later in this section under Extents. 



BUILTIN ATTRIBUTE 

The BUILTIN attribute specifies that an identifier is a 
builtin function. Builtin functions are described in 
section 11, Builtin Functions. 

The BUILTIN attribute indicates that an identifier is the 
name of a builtin function. A builtin function can be 
declared INTERNAL and defaults to INTERNAL. The 
BUILTIN attribute conflicts with any attribute other than 
INTERNAL. The BUILTIN attribute can be declared by 
keyword. The syntax of BUILTIN is shown in figure 4-20, 
and examples of the BUILTIN attribute are shown in 
figure 4-21. 



BUILTIN 



the BUILTIN attribute is performed whenever the name of 
the builtin function is used as a function reference. The 
BUILTIN attribute also applies to pseudovariables. 



DECLARE DATE BUILTIN! 

STT = TIMEO! 

/•CONTEXTUAL DECLARATION OF TIME 



Figure 4-21. BUILTIN Attribute Examples 



CHARACTER ATTRIBUTE 

The CHARACTER attribute specifies that a value is a 
character string value. CHARACTER and BIT are possible 
string types. 

The CHARACTER attribute is a string data type attribute 
for variables, descriptors, and literal constants. CHAR- 
ACTER conflicts with BIT and any other data type attri- 
butes except VARYING and nonvarying. CHARACTER can 
be specified for a variable that is a scalar or an array. 
CHARACTER conflicts with the structure attribute. The 
CHARACTER attribute is specified by keyword and can be 
abbreviated. The syntax of CHARACTER is shown in 
figure 4-22. and examples of the CHARACTER attribute are 
shown in figure 4-23. 



(character) nio^thVi 

JCHAR j [(length)] 

where length is an extent for the 
number of characters in the string 



Figure 4-22. CHARACTER Attribute Syntax 



DECLARE PLT CHAR (4) I 
/•LENGTH AS DECLARED 

DCL F CHARACTER! 
/•DEFAULT LENGTH OF I 

DECLARE GHK CHAR (31) VARYING! 
/•VARYING WITH MAX LENGTH OF 31 



Figure 4-20. BUILTIN Attribute Syntax 



Figure 4-23. CHARACTER Attribute Examples 



The character string is assumed to be nonvarying unless 
VARYING is specified. If the character string is nonvarying, 
a constant length is maintained. If the string is VARYING, 
the current length can be smaller than the specified 
maximum length of the string. The length of the character 
string can be from through 131071 characters. 

The specification of length is optional. The default length is 
1 character. The specification of length is an extent. 
Extents are described later in this section under Extents. 



Explicit DECLARE statement declaration of the BUILTIN 
attribute is usually not necessary. If the builtin function 
name is used in a containing block for some other purpose, 
explicit declaration must be used to reestablish the name as 
the name of the builtin function. Contextual declaration of 



CONDITION ATTRIBUTE 

The condition attribute is used for a programmer-named 
condition. Conditions are described in section 10, 
Conditions. 
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The condition attribute indicates that an identifier is the 
name of a programmer-named condition. The condition 
■ .':■ -■-■ co :■ ot be Jecla v : ;■; ; . ;. for hi ! ientifiei in i 
programmer-named condition. The assumed scope of any 
condition is EXTERNAL. No other attributes apply. 

The condition attribute is declared contextually for an 
identifier referenced after the keyword CONDITION in an 
ON, SIGNAL, or REVERT statement. Examples of the 
condition attribute are shown in figure 4-24. 



ON CONDITION(NOANS) CALL XI 
/•CONTEXTUAL DECLARATION OF NOANS «/ 

SIGNAL CONDITION(NOANS) I 

/•CONTEXTUAL DECLARATION OF NOANS •/ 



Figure 4-24. Condition Attribute Examples 



CONSTANT ATTRIBUTE 

The constant attribute applies to identifiers used as named 
constants and to literal constants. Named constants and 
literal constants are described in section 3, Data Elements. 

The constant attribute indicates that an identifier is the 
name of a constant. The constant attribute cannot be 
fee ired explicitly :;■ :cyword. explicit declarations of 
constant are possible, and contextual declarations are also 
possible. The constant attribute applies to entry constants, 
label constants, format constants, arid file constants. The 
constant attribute also applies to literal constants used in 
the program. The constant attribute conflicts with the 
BUILTIN, condition, and variable attributes. Examples of 
the constant attribute are shown in figure 4-2S. 



TRJ PROCEDURE OPTIONS (MAIN) t 
/•TR IS ENTRY CONSTANT 


•/ 


D: ENTRY (ONE* TWO) 1 
/•0 IS ENTRY CONSTANT 


•/ 


DECLARE M EXTERNAL ENTRY! 
/•to IS ENTRY CONSTANT 


•/ 


Y: GOTO NEW* 

/•Y IS LABEL CONSTANT 


•/ 


F12: F0RMAT((4>E(12*3>)f 




OCL DATA FILE! 

/•DATA IS FILE CONSTANT 


•/ 


AVAL » 12.51 

/•12.S IS LITERAL CONSTANT 


*/ 



Figure 4-25. Constant Attribute Examples 



The constant and ENTRY attributes are explicitly declared 
for an entry prefix on a PROCEDURE or ENTRY statement. 
The constant attribute is assumed for any DECLARE 
statement declaration if ENTRY is specified and parameter 
is not present. 

The constant and LABEL attributes are explicitly declared 
for a label prefix on any statement other than a PRO- 
CEDURE, ENTRY, or FORMAT statement. The constant 



attribute is supplied if a DECLARE statement declaration 
involves the LABEL and dimension attributes and the 
declared identifier matches a subscripted label prefix in the 
same block. 

The constant and format attributes are explicitly declared 
for a format prefix on a FORMAT statement. 

The constant attribute is assumed for any DECLARE 
statement declaration if FILE is specified and parameter is 
not present. The constant and FILE attributes are con- 
textually declared for file references in FILE options, COPY 
options, and I/O condition names. 



CONTROLLED ATTRIBUTE 

The CONTROLLED attribute specifies that a variable is a 
controlled variable. The allocation and freeing of controlled 
storage is under direct control of the programmer, as 
described in section 3, Data Elements. Generations for a 
controlled variable can be allocated by ALLOCATE state- 
ments and freed by FREE statements. The generations exist 
in a pushdown stack, and the generation at the top of the 
stack is the only one accessible. 

The CONTROLLED attribute is a storage type attribute for 
variables. CONTROLLED conflicts with any other storage 
type. A controlled variable is assumed to be INTERNAL 
unless declared as EXTERNAL. CONTROLLED can be 
specified for a variable of any aggregate type; CON- 
TROLLED cannot be specified for any individual array 
element or structure member. The CONTROLLED attribute 
is specified by keyword and can be abbreviated. The syntax 
of CONTROLLED is shown in figure 4-26, and examples of 
the CONTROLLED attribute are shown in figure 4-27. 



♦controlled) 

( CTL -) 



Figure 4-26. CONTROLLED Attribute Syntax 



OECLARE BET AWT (20*20) CTLI 
OCL EI GEN (20) CONTROLLED t 



Figure 4-27. CONTROLLED Attribute Examples 



DECIMAL ATTRIBUTE 

The DECIMAL attribute specifies that an arithmetic value 
has the decimal base. DECIMAL and BINARY are possible 
arithmetic bases. 



The DECIMAL attribute is an arithmetic data type attribute 
for variables, descriptors, and literal constants. DECIMAL 
conflicts directly with BINARY and cannot be used as an 
attribute of any nonarithmetic quantity. DECIMAL is 
compatible with REAL and with an arithmetic scale FIXED 
or FLOAT. DECIMAL can be specified for a variable that is 
a scalar or an array. DECIMAL conflicts with the structure 
attribute. The DECIMAL attribute can be specified by 
keyword and can be abbreviated. The syntax of DECIMAL is 
shown in figure 4-28, and examples of DECIMAL are shown 
in figure 4-29. 
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DECIMAL can be explicitly declared in the DECLARE 
statement and can be supplied by default in some cases. 



of the form (p) or fp,q) can follow the DECIMAL attribute in 
an explicit declaration. 



idecimalI 

( DEC i 



Figure 4-28. DECIMAL Attribute Syntax 



DECLARE TT FLOAT DECIMAL (10) I 
DCL R FIXED DEC(12*5)I 



Figure 4-29. DECIMAL Attribute Examples 



DEFINED ATTRIBUTE 

The DEFINED attribute specifies a variable that is a defined 
variable. A defined variable has no storage of its own and 
is used to access storage allocated for another variable that 
is called the host variable. Either the defined variable or 
the host variable can access the shared storage. 

The DEFINED attribute is a storage type attribute for 
variables. DEFINED conflicts with any other storage type. 
DEFINED conflicts with EXTERNAL and defaults to 
INTERNAL. DEFINED can be specified for a variable with 
any aggregate type; DEFINED cannot be specified for any 
individual array element or structure member. The defined 
variable cannot be a VARYING string and cannot be an 
aggregate that contains any VARYING strings. DEFINED 
conflicts with the INITIAL attribute, and INITIAL cannot be 
used to initialize any member of a defined structure. 
Storage type for the host variable can be STATIC, 
AUTOMATIC, CONTROLLED, or parameter. The host 
variable must be declared in the same block as the defined 
variable, or in a containing block. The host variable cannot 
be a VARYING string and cannot be an aggregate that 
contains any VARYING strings. The DEFINED attribute is 
specified by keyword and can be abbreviated. The 
POSITION attribute can accompany DEFINED and can also 
be abbreviated. The syntax of DEFINED and POSITION is 
shown in figure 4-30. 



Extents in the declaration are evaluated when the block 
containing the declaration is activated, as described later in 
this section under Extents. Each time the defined variable 
is referenced, any subscripts in the host reference are 



evaluated, the appropriate generation of the host-reference 
is determined, and any POSITION attribute in the declara- 
tion of the defined variable is evaluated. 

Three types of defining can be indicated by the DECLARE 
statement declaration of a defined variable. Each type of 
defining is described separately. 



Simple Defining 

The defined variable and the host reference must have the 
same aggregate type, except that: 

• If the defined variable is an array, the array bounds 
must be such that the defined generation does not 
extend outside the host generation. 

• If the defined variable has the BIT, CHARACTER, or 
PICTURE attribute, the string length of the defined 
generation must be less than or equal to the string 
length of the host generation. 

• If the defined variable is a structure, all extents of the 
members must precisely match the corresponding 
extents of the host generation. The components 
(except structures) of the defined variable and the host 
reference must correspond completely in data type and 
alignment, except that corresponding area references in 
OFFSET attributes can be different. 

The host reference can contain asterisk subscripts. Array 
element correspondence between the defined variable and 
the host reference is established by subscript value, not by 
indexing relative to lower bounds. 

Figure 4-31.1 shows an example of simple defining. 



DECLARE A(12); 

DECLARE B(3:6) QEFINED(A); 



/* B IS SIMPLY DEFINED ON A */ 



Figure 4-31.1. Simple Defining Example 



String Overlay Defining and POSITION Attribute 

The defined variable and the host reference each represents 
either a string or an aggregate of strings, and every string in 
each is the same type, either all bit strings or an arbitrary 



/DEFINED! I host-reference \ T/POSITIONI r , ,"| 

IdEF / {(host-reference)f L\p0S / D«art-pos)]J 

where host-reference is a simple, subscripted, structure-qualified, or locator-qualified reference to the host variable 
and where start-pos is an unsigned decimal integer 



Figure 4-30. DEFINED and POSITION Attribute Syntax 
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mixture of character strings and pictured variables. No 
string can be VARYING or ALIGNED. The defined variable 
and the host reference can have any aggregate type. The 
total length of each is the sum of the string lengths. The 
sum of the value of the POSITION attribute and the total 
length of the defined variable must not be greater than the 
total length of the host generation, plus one. 

The POSITION attribute optionally specifies an unsigned 
decimal integer greater than zero. The value specifies the 
starting position of the definition with respect to the first 
character or bit of the host string. If the POSITION 
attribute or the start-pos specification is omitted, 
POSITION (1) is assumed. 



Figure 4-31.2 shows an example that uses the POSITION 
attribute. The character array D overlays the structure C 
beginning at the second position. Therefore, D(l), D(2), 
D(3), and D(4) reference CA(2), CA(3), CA(4), and CA(5) 
respectively. 



subscripted host-reference. The second evaluated 
subscript replaces all occurrences of 2SUB in the 
subscripted host-reference, and so forth. 

When all of the evaluated subscripts in the reference to 
the defined variable have replaced all occurrences of iSUB 
in the host-reference, the subscript expressions in the 
subscripted host-reference are evaluated. This results in 
a subscripted reference to an element of the host array. 
The program must not depend upon the order of evaluation 
of the subscripts. 

A defined variable that is an iSUB-defined array cannot be 
referenced without subscripts or with asterisk subscripts. 

Figure 4-31.3 is an example of how iSUB defining can be 
used to reference a diagonal of a host array. A reference 
to B(l) causes both ISUBs to be replaced with 1, which 
results in a reference to" A(l,l). A reference to B(2) 
results in a reference to A(2,2), and so forth. 



DECLARE 1 C 

2 CA CHAR(5), 

2 CB PIC 'AA999'; 
DECLARE CHAR(4) DEFINED C POSITIONS); 



/* D IS A STRING OVERLAY DEFINED ON C */ 



CA(1) 


CA(2) 


CA(3) 


CA(4) 


CA(5) 


CB 




Figure 4-31.2. Defining with POSITION Example 



Array Defining with iSUB 



Using iSUBs allows the creation of a defined array that 
consists of designated elements from a host array. This 
allows an array to be defined as a row, column, diagonal, 
or other part of the host array. 

The defined variable and the host-reference must be 
arrays with the same aggregate type. Corresponding 
elements, except structures, must have the same 
alignment and data type attributes. Both the defined 
array and host array can be arrays of structures. 

The defined variable is defined on selected elements of 
the host array using iSUBs. The i of iSUB is replaced with 
a decimal integer corresponding to a subscript of the host 
array. For example, ISUB specifies the first subscript of 
the host array, 2SUB specifies the second subscript, and so 
forth. 

Expressions and constants can also be used as subscripts of 
the host-reference. References to the defined variable 
result in references to the host variable. Each use of the 
defined variable causes evaluation of the host-reference 
subscripts. 

The first evaluated subscript in the reference to the 
defined variable replaces all occurrences of ISUB in the 



DECLARE A{5,5); 

DECLARE B(5) DEFINED (A( ISUB , ISUB )) ; 



1 


2 


3 


4 


5 


B(1) 












B(2> 












B(3) 












B(4) 












B(5) 



Figure 4-31.3. Diagonal Selection with iSUBs 



Figure 4-31.4 shows another example of the use of iSUBs. 
In this case the iSUBs are part of a subscript expression. 



DIMENSION ATTRIBUTE 

The dimension attribute is used for an array that contains 
array elements. Arrays are described under Aggregates in 
section 3, Data Elements. 

Dimension is an aggregation attribute used foi ,-..-. 
named constants, or parameter descriptors. The dimension 
attribute cannot be used foi file constants, file variables, 

returns descriptor cannot have the dimension attribute. The 
dimension attribute cannot be explicitly declared by key- 
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DCL Mi,3); 

DCL B(y) DEF A({(lSUB+Z)/3),{lSUB-(3*((lSUB-l)/3)))); 



A 


1 


2 


3 


1 


B(1) 


B(2) 


B{3) 


2 


B(4) 


B(5) 


B(6| 


3 


B«7) 


B(8> 


B(9) 



Figure 4-31.4. Expressions with iSUBs 



s»iu. Dimension is established by appearance of a dimen- 
ion suffix. The syntax of the dimension suffix is shown in 
igure 4-32, and examples of dimension are shown in 
igure 4-33. 



(array-bounds , , , ) 

where array-bounds is 

( upper-bound 

\ lower-bound:upper-bound 



where upper-bound is an extent expression 

where lower-bound is an extent expression 

where * is an asterisk extent indicating that array-bounds 
are to be acquired from the argument 



The specification of dimension in a DECLARE statement 
must follow the name of the identifier and must precede any 
other attributes declared for the identifier. In a parameter 
descriptor, dimension must be specified as the first attribute 
if used. 



Each dimension of the array is specified as an array-bounds 
that is an extent. Each array-bounds indicates the span, 
that is, the number of elements in each dimension. If only 
the upper-bound is specified, the upper-bound must be 
greater than or equal to one. The lower-bound is assumed to 
be one, and the span is the upper-bound. If the lower-bound 
and upper-bound are both specified, the upper-bound must be 
greater than or equal to the lower-bound. The span is 
calculated as (upper-bound)-(lower-bound)+l. An asterisk 
extent can be used for a parameter to indicate that the 
array-bounds are to be acquired from the array-bounds for 
the corresponding dimension of the argument. Extents are 
described later in this section under Extents. 



Figure 4-32. Dimension Attribute Suffix Syntax 



DECLARE K(30) ; 

/*K HAS ONE DIMENSION 1:30 

DCL L(-^:5.J-3) t 

/* L hAS TWO DIMENSIONS* 

/» -<t:5 (SPAN IS 10) 



»/ 






/« i:j-3 (SPAN DEPENDS ON VALUE OF J) */ 

DECLARE 1 X<5)» 

2 Y<3) CHARACTERUS) « 
/* Y EFFECTIVELY HAS TWO DIMENSIONS, »/ 
/» 1:5 INHERITEC FROM X »/ 

/* H3 (SPAN IS 3) •/ 

DECLARE E ENTRY((10,10) FIXEDM 
/♦DIMENSIONED PARAMETER DESCRIPTOR */ 



Figure 4-33. Dimension Attribute Examples 



The upper-bound cannot exceed 131071 and the lower-bound 
cannot be less than -131071. The total number of 
dimensions is restricted to 32, including all bounds specified 
and all bounds inherited from any containing structure. A 
member of a structure inherits any dimensions of each 
containing structure. 



DIRECT ATTRIBUTE 

The DIRECT attribute specifies that access to records in a 
file is to be by direct reference to the key of each record. 
DIRECT is only used for record files. 



DIRECT is a file description attribute used for a file 
constant. DIRECT cannot be specified for a file variable. 
DIRECT conflicts with the STREAM, PRINT, and 
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SEQUENTIAL attributes. SEQUENTIAL is an alternative 
type of access to records of a file. STREAM and PRINT 
apply to files used for stream I/O rather than record I/O. 
The DIRECT attribute is specified by keyword. The syntax 
of DIRECT is shown in figure 4-34, and examples of DIRECT 
are shown in figure 4-35. 



DIRECT 



Figure 4-34. DIRECT Attribute Syntax 



OCL U FILE DIRECT I 

DCL CTFILE INPUT KEYED RECORD OIRECT; 



Figure 4-35- DIRECT Attribute Examples 

Appearance of the DIRECT attribute in a DECLARE 
statement declaration implies the FILE attribute. The 
DIRECT attribute also implies the KEYED attribute and the 
RECORD attribute. 



ENTRY ATTRIBUTE 

The ENTRY attribute specifies that the identifier represents 
an entry value. The ENTRY attribute can be associated 
with a constant, parameter, or parameter descriptor. 

The ENTRY attribute is a noncomputational data type 
attribute used for a variable, named constant, or parameter 
descriptor. ENTRY conflicts with any other data type 
except RETURNS. ENTRY and RETURNS are used together 
for any entry value that represents a function. Entry 
constants must he scalers. KNTRY variables i at only be 
used as en ry parameters. ENTRY conflicts with the 
structure and member attributes. The ENTRY attribute can 
be specified by keyword. The syntax of ENTRY is shown in 
figure 4-36, and examples of the ENTRY attribute are 
shown in figure 4-37. 



ENTRY 

ENTRY ( ) 

ENTRY (parameter-descriptor 



where each parameter-descriptor specifies any consistent com- 
bination of the attributes dimension, structure, member, 
ALIGNED, UNALIGNED, ENTRY, RETURNS, LABEL, FILE, 
AREA, POINTER, OFFSET, REAL, BINARY, DECIMAL, 
FIXED, FLOAT, precision, BIT, CHARACTER, VARYING, 
and PICTURE. 



Figure 4-36. ENTRY Attribute Syntax 



Each statement prefix on a PROCEDURE or ENTRY 
statement is explicitly declared with the constant and 
ENTRY attributes. In addition, an entry constant declared 
by use as the entry name of an external procedure receives 
the EXTERNAL attribute. An entry name of an internal 
procedure receives the INTERNAL attribute. 



PROCEDURE OPTIONlS(MAIN>» 

/«P IS EXTERNAL ENTRY CONSTANT 

DCL ZC ENTRY (CHAR <5>> t 

/•DECLARATION FOR EXTERNAL ENTRY 

OCL STR CHAR (5) I 
ZA: 

BEGIN* 



ZBS 



CALL 
CALL 
END 2AI 



ZB(STR>; 
ZC(STR)t 



/•CALL 
/•CALL 



INTERNAL 
EXTERNAL 



PROCEDURE (HJK) I 
/*ZB IS INTERNAL 



ENTRY CONSTANT 



•/ 
•/ 



•/ 



DCL HJK CHARACTER (5) t 



ENO zb; 
END P» 

ZC: 

PROCEDURE (ASTRING) * 
/«ZC IS EXTERNAL ENTRY CONSTANT 
OCL ASTRING CHAR(5U 



ENO zc; 



Figure 4-37. ENTRY Attribute Examples 



For procedure calls or function references to another 
external procedure, declaration of an external entry con- 
stant is established by DECLARE statement declaration. 
When an identifier is declared in the DECLARE statement 
with the ENTRY attribute, the constant and EXTERNAL 
attributes are supplied by default. Explicit declaration of 
entry constants is accomplished by use of the entry prefix 
for internal or external entry constants. Entry constants 
naming entry points in other external procedures can only be 
known by DECLARE statement declaration. Parameter 
descriptors describe all parameters that the external pro- 
cedure expects to receive when invoked. 

An entry parameter is declared by DECLARE statement in 
the procedure that receives the entry parameter. Since all 
parameters in the parameter list of a PROCEDURE or 
ENTRY statement are explicitly declared with the param- 
eter attribute, the variable attribute is applied by default to 
a parameter declared as ENTRY. 



Parameter Descriptors 

Parameter descriptors must be specified for all parameters 
to be passed to an external procedure. The parameter 
descriptors are declared in the DECLARE statement decla- 
ration of the external entry constant. When no parameters 
are to be passed to the external procedure, the declaration 
can be ENTRY or ENTRY( ). A single parameter descriptor 
can be supplied, or several parameter descriptors can be 
supplied with commas used to separate the descriptors. A 
null descriptor is a parameter descriptor with no declared 
attributes. Commas keep the place of a null descriptor. 
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Each parameter descriptor can have the same aggregation, 
alignment, and data type attributes as any variable. A 
parameter descriptor cannot have the INITIAL attribute. 
Scope and storage type do not apply to a parameter 
descriptor. Each declared parameter descriptor is com- 
pleted with default attributes. The name of the. entry 
constant affects any INRULE arithmetic defaults supplied 
for each descriptor. A null descriptor always receives 
arithmetic defaults. Since the entry constant is external, 
the completed set of attributes for each parameter descrip- 
tor must exactly match the attributes of each corresponding 
parameter in the external procedure to be invoked. Extents 
that can be used for the parameter descriptors are described 
later in this section under Extents. 



Nested ENTRY Attributes 

If a parameter descriptor is declared as type ENTRY, the 
ENTRY attribute is nested. The nested ENTRY attribute 
occurs when an entry value is passed to an external 
procedure. The parameter descriptor declared with type 
ENTRY can be declared with its own parameter descriptors. 
Parameter descriptors for the nested ENTRY attribute can 
be omitted; if specified, they are checked for consistency 
but not used. 



EXTERNAL ATTRIBUTE 

The EXTERNAL attribute establishes an external scope for 
the identifier. An external identifier is known in the same 
scope as an internal identifier and can also be known outside 
the external procedure. When declarations of the same 
identifier as EXTERNAL exist in separate internal or 
external procedures, all declarations of the identifier are 
effectively merged to reference the same identifier. 



The EXTERNAL attribute is a scope attribute for variables, 
named constants, or programmer-named conditions. 
EXTERNAL and INTERNAL are conflicting attributes. For 
variables, EXTERNAL conflicts with any storage type 
except STATIC and CONTROLLED. EXTERNAL can be 
specified for a variable with any aggregate type; 
EXTERNAL cannot be specified for any individual array 
element or structure member. For named constants, 
EXTERNAL conflicts with any data type except FILE or 
ENTRY. EXTERNAL is the only possible scope for condition 
names. EXTERNAL cannot be used for builtin function 
names. The EXTERNAL attribute is specified by keyword 
and can be abbreviated. The syntax of EXTERNAL is shown 
in figure 4-40, and examples of the EXTERNAL attribute 
are shown in figure 4-41. 



ENVIRONMENT ATTRIBUTE 

The ENVIRONMENT attribute is used to specify CYBER 
Record Manager (CRM) file processing options for a file 
accessed by the program. The ENVIRONMENT attribute is 
implementation-defined for CYBER Record Manager. 

The ENVIRONMENT attribute is a file description attribute 
associated with a file constant. The ENVIRONMENT 
attribute can be used in conjunction with any other file 
description attributes. ENVIRONMENT cannot be specified 
for a file variable. The ENVIRONMENT attribute is 
specified by keyword and can be abbreviated. The syntax of 
ENVIRONMENT is shown in figure 4-38, and examples of the 
ENVIRONMENT attribute are shown in figure 4-39. 



ENVIRONMENT 
ENV 



(options) 



where options is a character constant containing 
CRM file processing options separated by commas 



Figure 4-38. ENVIRONMENT Attribute Syntax 



DCL TIKL FILE INPUT ENV <*F0=SQ.RT=Ft ) ! 
DECLARE AB DIRECT INPUT ENV <fFO=WA*) » 



Figure 4-39. ENVIRONMENT Attribute Examples 



ENVIRONMENT can be established by DECLARE statement 
declaration. The ENVIRONMENT options are specified as a 
simple character string constant containing a list of CRM 
file processing options separated by commas. The proces- 
sing of ENVluUNMEHr is described in -,« tjon 9, CYBER 
Record Manager Interface. 



(external) 

EXT 



Figure 4-40. EXTERNAL Attribute Syntax 



X: PR0C<A.B)J 
/•ENTRY CONSTANT 
/•PROCEDURE X IS 



X IS EXTERNAL 
EXTERNAL 



IF 



*/ 
*/ 



OCL TT ENTRY<BITUO>M 
/•DEFAULTS TO EXTERNAL 

DECLARE OG(100»20) EXTERNAL; 

DCL F23456789 FILE! 
/•DEFAULTS TO EXTERNAL 
/•EXTERNAL NAME IS F23<f789 



V 
•/ 



Figure 4-41. EXTERNAL Attribute Examples 



EXTERNAL can be explicitly declared by DECLARE state- 
ment for a static or controlled variable, a file constant, or 
an entry constant. The entry prefix on a PROCEDURE or 
ENTRY statement for an external procedure is explicitly 
declared by usage as an external entry constant. Identifiers 
used in programmer-named conditions are contextually 
declared as condition and EXTERNAL. The EXTERNAL 
attribute is supplied by default when FILE or ENTRY is 
declared, unless the identifier is a parameter. When 
EXTERNAL is declared in a DECLARE statement for a 
variable and no storage type is specified, STATIC is 
supplied. 

Declarations of an external identifier are merged to 
reference the same identifier. Each declaration of an 
identifier involves the specified attributes and the attributes 
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supplied by default. The completed attribute sets that 
result from all declarations of an external identifier must be 
identical, except that: 

• Corresponding members names for an external structure 
can be different. 

• Corresponding area references for an external offset 
variable can be different. 

• Corresponding extents and INITIAL attribute for an 
external controlled variable can be different. 

NOTE 

Correspondence of attributes of external identi- 
fiers is not examined. Identical declarations for 
the external identifier should be used. 



A file constant, file parameter, or file parameter descriptor 
can be explicitly declared with the FILE attribute. Appear- 
ance of STREAM, RECORD, INPUT, OUTPUT, UPDATE, 
SEQUENTIAL, DIRECT, KEYED, or PRINT in a DECLARE 
statement declaration implies the FILE attribute. Con- 
textual declaration of FILE and constant occurs for an 
identifier used as the file reference in the FILE option in 
any I/O statement, in an ON, SIGNAL, or REVERT state- 
ment for an I/O condition, and in the COPY option of the 
GET statement. The constant and EXTERNAL attributes 
are applied by default if parameter is not present. If 
parameter is present, the variable and INTERNAL attributes 
are applied by default. File description attributes cannot be 
associated with a file parameter. Default file description 
attributes are supplied when the file constant is opened, as 
described in section 8, Input/Output. If no file description 
attributes are specified, STREAM and INPUT are supplied by 
default. 



The operating system restricts external names and local 
CRM file names to a maximum of seven alphanumeric 
characters. :•■■ irarier - ■ .- shou] st be us 
in any external identifier. External Identifiers in PL/I are 
modified as necessary for use as names known to the 
operating system, in the following way: 

• If any external name is longer than 7 characters, the 
name known to the operating system is formed from the 
first four and the last three characters. 

Static external variables can be initialized only in the 



FILE ATTRIBUTE 

The FILE attribute specifies that an identifier represents a 
file value. Input/output operations are performed on file 
constants associated with local files, as described in 
section 8, Input/Output. 

The FILE attribute is a noncomputational data type attri- 
bute for variables, named constants, or parameter descrip- 
tors. FILE conflicts with any other data type attribute, but 
a file constant can have file description attributes. Arrays 
of file constants or file variables are not supported. File 
variables are supported only as file parameters. File 
conflicts with th« structure attribute. The FILE attribute 
can be specified by keyword. The syntax of FILE is shown in 
figure 4-42, and examples of the FILE attribute are shown in 
figure 4-43. 



FIXED ATTRIBUTE 

The FIXED attribute indicates an arithmetic value with a 
fixed point scale. The precision of a fixed point value 
indicates the total number of maintained decimal or binary 
digits and the number of fractional digits following the 
decimal or binary point. 

The FIXED attribute is an arithmetic data type attribute for 
variables, parameter descriptors, returns descriptors, and 
literal constants. The FIXED attribute can be implied by 
the picture specification for a pictured numeric item. The 
FIXED attribute conflicts directly with FLOAT and cannot 
be used with any nonarithmetic data type. The FIXED 
attribute can be. specified for a variable that is a scalar or 
an array. FIXED conflicts with the structure attribute. The 
FIXED attribute is specified by keyword. The syntax of the 
FIXED attribute is shown in figure 4-44, and examples of 
FIXED are shown in figure 4-45. 



FIXED 



Figure 4-44. FIXED Attribute Syntax 



DECLARE F6H FIXED DECIMAL <8tl ) I 
DCL JVALUE FIXED BINARY ( 18.5) I 




Figure 4-42. FILE Attribute Syntax 



DCL DATA1 FILE INPUT! 

DCL DAT A3 PRINT I 

/♦PRINT IMPLIES FILE FOR DATA3 */ 

OPEN FILE(LIST) RECORD DIRECT OUTPUT I 
/•CONTEXTUAL DECLARATION OF LIST */ 

GET COPV(PARTS) LIST(XtYtZ) SKIP! 
/•CONTEXTUAL DECLARATION OF PARTS •/ 



Figure 4-43. FILE Attribute Examples 



Figure 4-45. FIXED Attribute Examples 



The FIXED attribute can be declared explicitly by 
DECLARE statement. Precision of the form (p) or (p,q) can 
follow FIXED. A pictured numeric item can imply FIXED 
but cannot be declared as FIXED. When a precision of the 
form (p,q) is declared for an arithmetic quantity, the FIXED 
attribute is implied. When arithmetic defaults *r ipplicd 
FIXED is the standard arithmetic default. FIXED can also 
be supplied in some cases when INRULE arithmetic defaults 
a«: applied. 

FLOAT ATTRIBUTE 

The FLOAT attribute indicates an arithmetic value with a 
floating point scale. The effective location of the decimal 
or binary point is dependent on the exponent value. The 
number of significant decimal or binary digits does not 
depend on the arithmetic value. The precision of a floating 
point value is the total number of significant digits. 
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The FLOAT attribute is an arithmetic data type attribute 
for variables, parameter descriptors, returns descriptors, 
and literal constants. The FLOAT attribute can be implied 
by the picture specification for a pictured numeric item. 
The FLOAT attribute conflicts with the FIXED attribute and 
cannot be used with any nonarithmetic data type. The 
FLOAT attribute can be specified for a scalar or an array. 
FLOAT conflicts with the structure attribute. The FLOAT 
attribute is specified by keyword. The syntax of FLOAT is 
shown in figure 4-46, and examples of FLOAT are shown in 
figure 4-47. 



FLOAT 



Figure 4-46. FLOAT Attribute Syntax 



DECLARE KLM FLOAT DECIMAL (6) * 
OCL NUMBER BINARY FLOAT ( 12) t 



Figure 4-47. FLOAT Attribute Examples 

The FLOAT attribute can be declared explicitly by 
DECLARE statement. Precision of the form (p) can follow 
FLOAT. A pictured numeric item can imply FLOAT but 
cennot be declared as FLOAT. I 0/ ■:■ ■■■ suppli -.: by 
iefault 3i ly ,.-_■ ■"■';■:. ■ I ir tl i etic ■:;.; ilts arc /■..■ -.■ 

FORMAT ATTRIBUTE 

The format attribute indicates a format value that can be 
used in edit-directed stream I/O operations. 

The format attribute is a noncomputational data type 
attribute for named constants. The formct stMbute 
conflicts with any other data type. Arrays of format 
constants are not supported. Format variables are not 
supported. The format attribute is implied and cannot be 
specified by keyword. An example of the format attribute is 
shown in figure 4-48. 



DECLARE F FILE PRINT* 



FMT2: F0RMAT<F<8.2>, E(12*3»2)« A<16)H 



PUT FILE(F) LINE EDIT(I»J.K> <R(FMT2>>» 



Figure 4-48. Format Attribute Example 

The format and constant attributes are explicitly declared 
for each identifier used as a format prefix on a FORMAT 
statement. The INTERNAL attribute is applied by default 
to format constants. 

INITIAL ATTRIBUTE 

The INITIAL attribute is used to initialize a variable. The 
assignment of an initial value to a scalar or initial values to 
an array takes place whenever a generation is allocated for 
the variable. 



The INITIAL attribute is the initialization attribute for 
variables. INITIAL can be specified for a scalar or «n arrav, 
INITIAL conflicts with the structure attribute. INITIAL 
cannot be used to initialize any member of an array of 
structures. Static external variables can be initialized only 
in the outermost block of the main external procedure. 
Static label variables cannot be initialized. INITIAL cannot 
be used to initialize a defined variable or a member of a 
defined structure. INITIAL cannot be used to initialize a 
parameter or a member of a structure that is a parameter. 
The INITIAL attribute is specified by keyword and can be 
abbreviated. The syntax of INITIAL is shown in figure 4-49, 
and examples of INITIAL are shown in figure 4-50. 



For initialization of scalers 



[+] arithmetic-constant 
simple-character-constant 
, I I replicated-character-constant | 

' ' ' replicated-bit-constant 

reference 
(expression) 



For initialization of arrays 

{!n!t' AL } < initia| -element , , , ) 
where initial-element is 

| [±] arithmetic-constant \ x 
) replicated character constant J 
[(iteration-factor)] \ replicated-bit-constant 
f reference 

/simple-character-constant 

simple-bit-constant 

(expression) 
^(iteration-factor) (initial-element , , , ) 

where iteration-factor is an expression 



Figure 4-49. INITIAL Attribute Syntax 



/•INITIALIZATION OF SCALARS •/ 

DECLARE T FIXED DEC(8.2) INITU2.34M 

DCL U FLOAT BIN INIT((T*5))I 

DCL BA BIT<5) INIT(+11011+B)I 

DCL BB 8IT<6> INIT ( (2) tlOltB) » 

DCL P POINTER INITIAL(NULL ( ) ) » 

DECLARE SWITCH INITIAL COM 

OCL AREA* AREA INIT (AREAS) t 

DCL <C FIXED. D FLOAT) STATIC INIT(5M 

/•INITIALIZATION OF ARRAYS */ 

DCL AU0> lNITIAL(<5)-3» (5>(<-X)M 
OCL XUOtlO) DEC INITU50)** (50)1.5)1 
DCL BC(5) BITO) INIT ( (5) ( I ) tOl 1*8) I 
DCL BD(5) BITO) INIT ( (5) (3>tl+B) * 
DCL B(6) CHAR(5> INIT ( (6) ( (♦ABC») ) ) » 



Figure 4-50. INITIAL Attribute Examples 
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INITIAL is explicitly specified by DECLARE statement, and 
the initial values to be assigned are supplied. A scalar 
initial value can be assigned to a scalar variable. Scalar 
initial values can be assigned to individual elements of an 
array. References and expressions in the INITIAL attribute 
are evaluated when allocation occurs for the variable to be 
initialized. 

When a single initial value is assigned, the initial value can 
be specified as a literal constant, a reference, or an 
expression enclosed in parentheses. A literal constant can 
be an arithmetic, character or bit constant. Some prefix 
operators can be used without the need for enclosing 
parentheses; all other operators must be used in a parenthe- 
sized expression. A reference can be a variable, named 
constant, or function reference. For initialization of an 
automatic or controlled variable, a reference must not refer 
to an earlier generation of the same variable. Multiple 
initial values cannot be specified for initialization of a 
scalar. 

When INITIAL is used to initialize elements of an array, the 
specification of initial values includes a number of initial- 
elements. Any initial-element can be preceded by a 
parenthesized iteration factor. Every iteration factor must 
be scalar and computational. The initial elements in a 
parenthesized list are processed in order from left to right, 
except as controlled by iteration factors. When an iteration 
factor is encountered, it is evaluated and converted if 
necessary to fixed binary integer. A negative iteration 
factor is assumed to be zero. The following value, asterisk, 
or entire parenthesized list of initial elements is repeated 
the specified number of times. For example, 

( (2) (5,4), *, (3) 6, (7*A) ) 



is processed in the order 

5 4 5 4 * 6 6 6 7*A 

For a STATIC variable, iteration factors can only include 
expressions with operands that are literal constants and 
operators that are + - * / or-i. For a STATIC variable, each 
initial element can only be a reference to a NULL or 
EMPTY builtin function or an expression with operands that 
are literal constants and operators that are + - * / — lor II. 

Note that an iteration factor cannot be specified for a 
simple character constant or simple bit constant. If a 
parenthesized factor precedes a simple character or bit 
constant, the factor is assumed to be a repetition factor for 
the constant. The simple character or bit constant can be 
specified with an iteration factor and the repetition 
factor (1). The simple character or bit constant can also be 
used as an expression. 

The initial values for an array are applied in the order in 
which the array elements are stored. If the total number of 
initial values is greater than the number of elements of the 
array, the excess initial values are ignored. If the total 
number is fewer, only part of the array is initialized. 
Assignment of initial values begins with the first element of 
the array. An asterisk specifies no initialization of the 
individual element. When asterisks are used, some elements 
of the array can be uninitialized even though elements that 
follow in the storage order of the array are initialized. 



The INPUT attribute is a file description attribute used for a 
file constant. INPUT cannot be specified for a file variable. 
INPUT conflicts with OUTPUT, UPDATE, and PRINT. 
OUTPUT and UPDATE are alternatives for the usage of the 
file. PRINT applies only to OUTPUT files. The INPUT 
attribute is specified by keyword. The syntax of INPUT is 
shown in figure 4-51, and examples of INPUT are shown in 
figure 4-52. 




Figure 4-51. INPUT Attribute Syntax 



DCL ROH FILE INPUT J 

DECLARE TEST>FILE RECORD INPUT DIRECT* 



Figure 4-52. INPUT Attribute Examples 

Appearance of the INPUT attribute in a DECLARE state- 
ment declaration implies the FILE attribute. The INPUT 
attribute is the default for a record file or stream file. 



INTERNAL ATTRIBUTE 

The INTERNAL attribute establishes an internal scope for 
the identifier. An internal identifier is known in the block 
that immediately contains the declaration of the identifier. 
In addition, the identifier is known in all contained blocks 
except those in which another declaration for the same 
name is effective. 

The INTERNAL attribute is a scope type attribute for 
variables, named constants, and builtin functions. 
INTERNAL and EXTERNAL are alternatives for the scope 
of an identifier. INTERNAL can be specified for a variable 
with any aggregate type. INTERNAL cannot be specified 
for any individual array element, but INTERNAL can be 
specified for a structure member. INTERNAL conflicts with 
the condition attribute. The INTERNAL attribute can be 
specified by keyword and can be abbreviated. The syntax of 
INTERNAL is shown in figure 4-53, and examples of 
INTERNAL are shown in figure 4-54. 



(INTERNAL) 
UNT / 



Figure 4-53. INTERNAL Attribute Syntax 



DECLARE VB INTERNAL AUTOMATIC* 

DCL S AUTOMATIC! 
/♦DEFAULTS TO INTERNAL 



Figure 4-54. INTERNAL Attribute Examples 



INPUT ATTRIBUTE 

The INPUT attribute indicates that a file is to be used for 
input. An input file can be used for stream I/O or record I/O 
operations. 



INTERNAL can be explicitly declared in the DECLARE 
statement for a variable of any storage type, a file constant, 
an array of label constants, or a builtin function name. 
INTERNAL is the default scope for any identifier except a 
file constant, an entry constant, or a programmer-named 
condition. 
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KEYED ATTRIBUTE 

The KEYED attribute indicates that a file is to be accessed 
by record keys. The KEYED attribute can only be used for 
record I/O operations. 

The KEYED attribute is a file description attribute used for 
a file constant. KEYED cannot be specified for a file 
variable. The KEYED attribute conflicts with the STREAM 
and PRINT attributes that apply to stream I/O operations. 
The KEYED attribute is specified by keyword. The syntax 
of KEYED is shown in figure 4-55, and examples of KEYED 
are shown in figure 4-56. 



KEYED 


Figure 4-55. KEYED Attribute Syntax 


DECLARE BIN 
DCL LOOPRUN 


FILE UPDATE 
FILE KEYED; 


DIRECT 


keyed; 



Figure 4-56. KEYED Attribute Examples 

Appearance of the KEYED attribute in a DECLARE state- 
ment declaration implies the FILE attribute. The KEYED 
attribute also implies RECORD and can be used with 
SEQUENTIAL or DIRECT. For a record file, the default is 
SEQUENTIAL. 

LABEL ATTRIBUTE 

The LABEL attribute is used for a label value that identifies 
a statement. A label value also identifies a particular 
activation of the block containing the statement. 

The LABEL attribute is a noncomputational data type 
attribute for variables and named constants. The LABEL 
attribute conflicts with any other data type. Label 
constants can be scalars or arrays. Label constants cannot 
be external. LABEL can be specified for a variable that is a 
scalar or an array. LABEL conflicts with the structure 
attribute. Static label variables cannot be initialized. 
Automatic, controlled, or based label variables can be 
initialized. The LABEL attribute can be specified by 
keyword. The syntax of LABEL is shown in figure 4-57, and 
examples are shown in figure 4-58. 



LABEL 



Figure 4-57. LABEL Attribute Syntax 



The LABEL attribute is explicitly declared by usage for all 
scalar label constants. Each label prefix on a statement 
other than a PROCEDURE, ENTRY, or FORMAT statement 
is explicitly declared as a label constant. When defaults are 
applied, each label constant defaults to INTERNAL. 

An army or" lahcl no::st«:i'.f irmt ton declared *.,y DKCl AKF. 
statement, and at least one of the elements of the array 
must be declared explicitly by appearing as a subscripted 
label prefix. The array of label constants can only be 

sion, LABEL, and INTERNAL. The iliinwisior. ami I.AREI, 



at '.-. ' - ■ . required . tab t . rray of U ■. : 

constants. The subscripted label prefixes that belong to the 
array must be immediately contained in the same block as 
the DF.CLAKE statement declaration 'J the array. The 
subscript for each subscripted label prefix must be within 



YYJ 

procedure; 

declare labvar label; 
/•labvar is label variablt 

LAbVAR = LOOP It 

« 


•/ 


• 

LOOPl: 

/•L00P1 IS LABEL CONSTANT 
BEOINt 

• 


•/ 


end; 

• 




• 

GOTO labvar; 

• 




• 

END yy; 





Figure 4-58. LABEL Attribute Examples 



Label variables must be declared explicitly by DECLARE 
statement. Label values can be passed as arguments, and 
the LABEL attribute can be declared for a parameter 
tiescriptoi I. ABEL al iri 

returns descriptor. 



OFFSET ATTRIBUTE 

The OFFSET attribute indicates an offset value. An offset 
value is used for references to based variables to identify 
the displacement of a specific based generation within an 
area. 

The OFFSET attribute is a noncomputational data type 
attribute for variables, parameters descriptors, or returns 
descriptors. An offset variable can have any scope or 
storage type. The OFFSET attribute conflicts with any 
other data type. OFFSET can be specified for a variable 
that is a scalar or an array. OFFSET conflicts with the 
structure attribute. The OFFSET attribute is specified by 
keyword. The syntax of OFFSET is shown in figure 4-59, 
and an example of OFFSET is shown in figure 4-60. 

The OFFSET attribute must be declared by DECLARE 
statement. The area-reference is an optionally specified 
area in which the offset is to be effective. The area- 
reference is used implicitly for the OFFSET variable in the 
following circumstances: 

• For allocating the based variable, if the offset variable 
is used in the SET option, or assumed SET option of an 
ALLOCATE statement with no IN option 

• For freeing the based variable, if the offset variable is 
used as the locator or implicit locator in a FREE 
statement with no IN option 
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• In all references to based variables if the offset 
variable is used as the locator or implicit locator. 

If an area value is written to a record file and read in again, 
the offset value remains valid. If the area value is assigned 
to another area by assignment or by INITIAL attribute, the 
offset value also remains valid. 



OFFSET [(area-reference)] 



Figure 4-59. OFFSET Attribute Syntax 



DCL BVAR BASEOI 

DCL AREA* AREA) 

OCL A<»OFF OFFSET (AREA4) I 

/•EXPLICIT DECLARATION OF A4QFF 



ALLOCATE BVAR SET(A40FF)t 
A*OFF->BVAR = TEST*RES» 



Figure 4-60. OFFSET Attribute Example 



OUTPUT ATTRIBUTE 

The OUTPUT attribute indicates that a file is to be used for 
output. An output file can be used for stream I/O or record 
I/O operations. An output file for stream I/O can have the 
PRINT attribute. 

The OUTPUT attribute is a file description attribute used 
for a file constant. OUTPUT cannot be specified for a file 
variable. OUTPUT conflicts with INPUT and UPDATE. 
INPUT and UPDATE are alternatives for the use of the file. 
The OUTPUT attribute is specified by keyword. The syntax 
of OUTPUT is shown in figure 4-61, and examples of 
OUTPUT are shown in figure 4-62. 



OUTPUT 



Figure 4-61. OUTPUT Attribute Syntax 



DCL RESULT OUTPUT PRINT I 
DCL THJ FILE RECORD OUTPUT J 



Figure 4-62. OUTPUT Attribute Examples 

Appearance of the OUTPUT attribute in a DECLARE 
statement declaration implies the FILE attribute. 

PARAMETER ATTRIBUTE 

The parameter attribute is used for a parameter variable. 
Each parameter is associated with an entry point of a 
procedure. Each variable used as a parameter appears in the 
parameter list of a PROCEDURE or ENTRY statement. 
Arguments passed when the procedure is invoked are 
received as parameters in the invoked procedure. 

The parameter attribute is a storage type attribute for 
variables. The parameter attribute conflicts with any other 



storage type. The parameter attribute also conflicts with 
the INITIAL attribute. A parameter can have any data type 
except format. The parameter attribute cannot be specified 
by keyword. Examples of the parameter attribute are shown 
in figure 4-63. 



/•PARAMETER IN INTERNAL PROCEDURE 

JKLt 
PROCEDURE I 

DCL 00 BIT (12) I 



♦/ 



YGI 



CALL VG(DD)I 
( 
PROCEDURE (PRESi* JV 1 1 

OCL PRES^JV BIT (12) I /•PARAMETER*/ 



••/ 
•/ 



END YGI 
END JKLt 

,•....„ 

/•PARAMETER IN EXTERNAL PROCEDURE 

tf: 

PROCEDURE OPTIONS(MAIN)! 
DCL EX ENTRY (CHAR (20) t 

(3*3) OECIHAL FIXED) I 



CALL EX(STRtARR)! 
END TFI 

ex: 

procedure <x»y>» 

declare x char (20)1 

DECLARE Y(3t3) DECIMAL FIXED ALIGNED; 



EN0 EXt 



/# 

/•PARAMETER WITH ASTERISK EXTENT 

H455 
PROCEDURE ; 

DCL MATO00.5) FLOAT DECIMAL! 

DCL GYF(100t2> FLOAT DECIMAL! 



CALL N(MAT)t 



— •/ 

•/ 



N: 



CALL N(GYF) t 

PROCEDURE (PASS) t 

DCL PASS(100.«) FLOAT DECIMAL I 



END Nt 
END H45! 



Figure 4-63. Parameter Attribute Examples 



60388100 A 



4-19 



Each parameter that appears in the parameter list of a 
PROCEDURE or ENTRY statement is explicitly declared by 
usage with the parameter attribute. Within the procedure, 
each parameter can be further declared by DECLARE 
statement with additional attributes that define the use of 
the parameter. When default attributes are applied, 
parameters are supplied with the variable and INTERNAL 
attributes. A parameter that appears in a parameter list but 
is not declared in any other manner receives standard 
arithmetic defaults. The parameter can instead receive 
■defaults. 



PICTURE ATTRIBUTE 

The PICTURE attribute is used for a pictured variable that 
can be a pictured character item or pictured numeric item. 
Picture-controlled Conversion is described in section 7, Data 
Manipulation. 

The PICTURE attribute is a computational data type 
attribute. The PICTURE attribute conflicts with any 
noncomputational data type attribute. Other computational 
data type attributes can be associated with the pictured 
item but are not declared for the pictured item. The 
exception is the REAL attribute. PICTURE can be specified 
for a variable that is a scalar or an array. PICTURE 
conflicts with the structure attribute. The PICTURE 
attribute is specified by keyword. The syntax of the 
PICTURE attribute is shown in figure 4-64, and examples of 
PICTURE are shown in figure 4-65. 



( PICTURE 
I PIC 



> 'picture-specification' 



where picture-specification is 

| 'pictured-character' ) 
\ 'pictured-numeric-fixed' ? 
('pictured-numeric-float' J 

where pictured-character can include the picture codes A 
X and 9 

where pictured-numeric-fixed can include the picture codes 
9Z*YVS + -TI R CR DB $ / , . B and F in a valid 
combination 

where pictured-numeric-float can include the picture codes 
9Z*YVS + -TI R/,. BE and K in a valid com- 
bination 



is declared for a variable or specified for a parameter or 
returns descriptor, no data type attribute except REAL can 
accompany the PICTURE attribute. The picture for a 
pictured numeric item implies REAL, DECIMAL, FKED or 
FLOAT, and the precision. The UNALIGNED attribute is 
applied by default to a pictured item. A pictured item can 
be ALIGNED or UNALIGNED. 



POINTER ATTRIBUTE 

The POINTER attribute indicates a pointer value. A pointer 
value is a locator value used to specify the location of a 
generation. 

The POINTER attribute is a noncomputational data type 
attribute for variables, parameter descriptors, and returns 
descriptors. A pointer variable can have any scope or 
storage type. The POINTER attribute conflicts with any 
other data type. POINTER can be specified for a variable 
that is a scalar or an array. POINTER conflicts with the 
structure attribute. The POINTER attribute is specified by 
keyword and can be abbreviated. The syntax of POINTER is 
shown in figure 4-66, and examples of POINTER are shown 
in figure 4-67. 



(POINTER) 
IPTR f 



Figure 4-66. POINTER Attribute Syntax 



DCL P POINTER » 

/•EXPLICIT DECLARATION OF P 

DCL BRESULT BASED <P> » 

DCL DVALUE BASED (Q) ( 
/•CONTEXTUAL DECLARATION OF Q 



•/ 



Figure 4-64. PICTURE Attribute Syntax 



Figure 4-67. POINTER Attribute Examples 



The POINTER attribute can be declared by DECLARE 
statement. Contextual declaration of the POINTER and 
variable attributes occurs for an identifier appearing in the 
SET option of an ALLOCATE statement, an identifier 
declared as the implicit locator in the BASED attribute, or 
an identifier used as the locator in a locator-qualified 
reference to a based variable. The default attributes 
INTERNAL, AUTOMATIC, and ALIGNED are applied to a 
pointer variable. The default attribute ALIGNED is applied 
to a parameter descriptor or returns descriptor that speci- 
fies POINTER. 



DCL RIGHT PICTURE+9AXXXXXt| 
DCL RESULT PIC+SZZZZV.ZZCR-H 
DCL KPL PIC+9V.9999ES999+ REAL* 



Figure 4-65. PICTURE Attribute Examples 



If a PICTURE attribute that specifies pictured-character is 
declared for a variable or specified for a parameter or 
returns descriptor, no other data type attribute can be 
declared. The CHARACTER and nonvarying attributes are 
implied from the picture. If a PICTURE attribute that 
specifies pictured-numeric-fixed or pictured-numeric-float 



PRECISION ATTRIBUTE 

The precision attribute indicates the computational pre- 
cision of an arithmetic value. The precision is the number 
of digits to be maintained for an arithmetic quantity. 
Precision of a fixed point value indicates the total number 
of maintained decimal or binary digits and the scale factor 
of the value. Precision of a floating point value indicates 
only the total number of significant decimal or binary digits. 

The precision attribute is an arithmetic data type attribute 
used for variables, parameter descriptors, returns descrip- 
tors, and literal constants. Precision is implied by the 
picture specification for pictured numeric items. Precision 
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is compatible with the arithmetic attributes REAL, 
DECIMAL or BINARY, and FIXED or FLOAT. ■■: ■■■ -..-.■ 
c«aot &# tpmnr«a % fc^wnw* Precision is established by 
appearance of a precision suffix. The syntax of the 
precision suffix is shown in figure 4-68, and examples of 
precision are shown in figure 4-69. 



(P) ( 



where p is an unsigned decimal integer for the total number 
of significant decimal or binary digits 

and where q is a signed decimal integer scale factor that can 
be specified for fixed point values 



Figure 4-68. Precision Attribute Suffix Syntax 



OCL 


TT FIXED DECIMAL(8»5M 


DCL 


YY FLOAT 0ECIMAL<6>» 


OCL 


SDF BIN FIXEDC12.3U 


DCL 


KOH REAL (8.6 > 1 



Figure 4-69. Precision Attribute Examples 



Any specification of precision must immediately follow one 
of the attributes REAL, DECIMAL, BINARY, FIXED, or 
FLOAT. Precision can be specified for an arithmetic 
variable that is a scalar or an array. Precision conflicts 
with the structure attribute. The specification (p) or (p,q) is 
used for FIXED arithmetic and (p) is used for FLOAT 
arithmetic. The p specification is an unsigned decimal 
integer, and the q specification (if used) can be an optionally 
signed decimal integer. The possible values of p and q are 

• For FIXED DECIMAL: 0<p and p<=14, -255<=q and 
q<=255 

• For FLOAT DECIMAL: 0<pandp<=14 

• For FIXED BINARY: 0<p and p<=48, -255<=q and 
q<=255 

• For FLOAT BINARY: 0<p and p<=48 

When default arithmetic attributes are applied to an 
arithmetic quantity, the default precisions are: 

• For FIXED DECIMAL: (5,0) 

• For FLOAT DECIMAL: (14) 

• For FIXED BINARY: (15,0) 

• For FLOAT BINARY: (48) 

PRINT ATTRIBUTE 

The PRINT attribute indicates that an output file is intended 
for printing on a line printer. The PRINT attribute is used 
only for stream output files. 

The PRINT attribute is a file description attribute for a file 
constant. PRINT cannot be specified for a file variable. 
PRINT conflicts with any file description attributes except 
STREAM, OUTPUT, and ENVIRONMENT. The PRINT 



attribute is specified by keyword. The syntax of PRINT is 
shown in figure 4-70, and examples of PRINT are shown in 
figure 4-71. 




Figure 4-70. PRINT Attribute Syntax 



DECLARE SFILE PR INT I 

DECLARE GHT FILE STREAM OUTPUT PRINT I 



Figure 4-71. PRINT Attribute Examples 



Appearance of the PRINT attribute in a DECLARE state- 
ment declaration implies the FILE attribute. The PRINT 
attribute also implies the OUTPUT and STREAM attributes. 



REAL ATTRIBUTE 

The REAL attribute indicates that an arithmetic value has 
the mode REAL. The mode REAL indicates that the 
arithmetic value has no imaginary part. 

The REAL attribute is an arithmetic data type attribute for 
variables, parameter descriptors, or returns descriptors. 
The REAL attribute can be used with other arithmetic data 
type attributes. REAL can also accompany the PICTURE 
attribute in the declaration of a pictured numeric item. 
REAL can be specified for a variable that is a scalar or an 
array. REAL conflicts with the structure attribute. A 
precision specification can follow the REAL attribute in the 
declaration of an arithmetic variable or descriptor. The 
REAL attribute is specified by keyword. The syntax of 
REAL is shown in figure 4-72, and examples of REAL are 
shown in figure 4-73. 




Figure 4-72. REAL Attribute Syntax 



DCL RES REAL FIXED BINARY! 
DCL M REAL FLOAT DECIMAL (9) I 



Figure 4-73. REAL Attribute Examples 



REAL is compatible with the scale FIXED or FLOAT,' the 
base DECIMAL or BINARY, and a precision. During default 
processing, any implicitly declared variable and any descrip- 
tor with no declared attributes receives the REAL attribute 
and other arithmetic attributes by default. 



RECORD ATTRIBUTE 

The RECORD attribute indicates that a file is to be used for 
transmission of input or output records. RECORD indicates 
the use of record I/O operations for the file. 
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The RECORD attribute is a file description attribute used 
for a file constant. RECORD cannot be used for a file 
variable. The RECORD attribute conflicts with the 
STREAM and PRINT attributes that apply to stream I/O 
operations. The RECORD attribute is specified by keyword. 
The syntax of RECORD is shown in figure 4-74, and 
examples of RECORD are shown in figure 4-75. 



RECORD 



Figure 4-74. RECORD Attribute Syntax 



DCL KK FILE RECORD! 

DCL DFILE RECORD OUTPUT SEQL KEYED; 



Figure 4-75. RECORD Attribute Examples 



The RETURNS attribute can be declared for an entry 
constant. The entry prefix on a PROCEDURE or ENTRY 
statement is explicitly declared by usage as an internal or 
external entry constant. The RETURNS option on the 
PROCEDURE or ENTRY statement adds the RETURNS 
attribute to the entry constant. If no attributes are supplied 
for the returns descriptor, arithmetic defaults are applied. 
Since the value to be returned is associated with the entry 
constant, the name of the entry constant affects any 
INRULE arithmetic defaults applied to the returns 
descriptor. 

The returns descriptor is completed with default attributes. 
The returns descriptor has no scope or storage type. The 




Extents that can be used in a returns descriptor are 
described later in this section under Extents. When a value 
is returned from the function by RETURN statement 
execution, the value is converted as necessary to match the 
attributes of the returns descriptor before being returned 
from the function. 



Appearance of the RECORD attribute in a DECLARE 
statement declaration implies the FILE attribute. 

RETURNS ATTRIBUTE 

The RETURNS attribute specifies that an entry value 
represents a function entry point. The RETURNS attribute 
additionally describes the single value that is returned from 
the function. 

The RETURNS attribute is a noncomputational data type 
attribute for a variable, named constant, or parameter 
descriptor. RETURNS conflicts with any data type other 
than ENTRY. ENTRY and RETURNS are used together for 
an entry value that represents a function. RETURNS can be 
associated with an entry constant, an entry variable, or an 
entry parameter descriptor. The RETURNS attribute is 
specified by keyword. The syntax of RETURNS is shown in 
figure 4-76, and examples are shown in figure 4-77. 



{returns \ 

(RETURNS (returns-descriptor)! 

where returns-descriptor specifies any consistent combination 
of the attributes ALIGNED, UNALIGNED, AREA, POINTER, 
OFFSET, REAL, BINARY, DECIMAL, FIXED, FLOAT, 
precision, CHARACTER, BIT, VARYING, and PICTURE 



Figure 4-76. RETURNS Attribute Syntax 



If an external procedure is to be invoked as a function from 
within a separate external procedure, the RETURNS attri- 
bute must be specified in the DECLARE statement declara- 
tion of the external entry constant. Rules for the specified 
returns descriptor are the same as for the RETURNS option 
used on the PROCEDURE or ENTRY statement. Since 
attributes of all external identifiers must exactly match, the 
attributes specified for the returns descriptor (and supplied 
by default) must exactly match the attributes of the returns 
descriptor in the external function. 

The RETURNS attribute can also be declared for an entry 
parameter or an entry parameter descriptor. The RETURNS 
attribute identifies an entry parameter as representing a 
function entry point. 



SEQUENTIAL ATTRIBUTE 

The SEQUENTIAL attribute indicates that records in a file 
can be accessed sequentially. The SEQUENTIAL attribute 
applies only to record I/O operations, even though stream 
I/O operations effectively involve sequential access to 
stream data. 



The SEQUENTIAL attribute is a file description attribute 
used for a file constant. SEQUENTIAL cannot be used for a 
file variable. SEQUENTIAL conflicts with the STREAM and 
PRINT attributes that are used for stream I/O rather than 
record I/O. The SEQUENTIAL attribute is specified by 
keyword and can be abbreviated. The syntax of 
SEQUENTIAL is shown in figure 4-78, and examples of 
SEQUENTIAL are shown in figure 4-79. 



DCL P8 ENTRY (BIT J RETURNS (FLOAT DECJJ 
/•EXTERNAL ENTRY HAS RETURNS ATTRIBUTE*/ 

DCL P10 ENTRY(CHAR(6)> RETURNS! 
/•ENTRY hAS RETURNS ATTRIBUTE •/ 

/•STANDARD RETURNStF IXEO BINARY (15t0> >•/ 
/•INRULE RETURNS (FLOAT DEC (14) > •/ 

PR6: 

PROCEDURE RETURNS(CHAR(100>>» 

/•PR6 HAS RETURNS ATTRIBUTE •/ 

/•SUPPLIED BY STATEMENT OPTION •/ 



Figure 4-77. RETURNS Attribute Examples 



I SEQUENTIAL I 
(SEQL I 



Figure 4-78. SEQUENTIAL Attribute Syntax 



DCL NM SEQUENTIAL OUTPUT KEYED RECORD I 
DECLARE ZZ FILE SEQL I 



Figure 4-79. SEQUENTIAL Attribute Examples 
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Appearance of the SEQUENTIAL attribute in a DECLARE 
statement declaration implies the FILE attribute. The 
records in a SEQUENTIAL file can be created or retrieved in 
sequential order. The records in a SEQUENTIAL and 
KEYED file can be accessed sequentially or by record key. 
The SEQUENTIAL attribute is the default for a record file. 

STATIC ATTRIBUTE 

The STATIC attribute indicates that a variable has the 
static storage type, as described in section 3, Data Ele- 
ments. Static storage is allocated only once, before 
program execution begins. 

The STATIC attribute is a storage type attribute for 
variables. The STATIC attribute conflicts with any other 
storage type. STATIC can be used with INTERNAL or 
EXTERNAL. If a variable is declared with the STATIC 
attribute, the INTERNAL attribute is applied by default. 
STATIC can be specified for a variable of any aggregate 
type; STATIC cannot be specified for any individual array 
element or structure member. The STATIC attribute can be 
specified by keyword. The syntax of STATIC is shown in 
figure 4-80, and examples of STATIC are shown in 
figure 4-81. 



STATIC 



Figure 4-80. STATIC Attribute Syntax 



DECLARE TMATRIXU0.30) STATIC FLOAT DEC; 

DECLARE 6 CHAR (10) EXTERNAL; 

/♦DEFAULTS TO STATIC »/ 



Figure 4-81. STATIC Attribute Examples 



If a storage type is not declared and the EXTERNAL 
attribute is declared for a variable, the STATIC attribute is 
supplied by default. The STATIC attribute is usually not the 
default storage type. If scope and storage type are both 
unspecified, INTERNAL and AUTOMATIC are supplied by 
default. 



Appearance of the STREAM attribute in a DECLARE 
statement declaration implies the FILE attribute. The 
STREAM attribute is the default for a file, unless the 
RECORD attribute is implied. 



DCL OUT FILE STREAM OUTPUT J 

DCL G stream; 



Figure 4-83. STREAM Attribute Examples 



STRUCTURE AND MEMBER ATTRIBUTES 



The structure attribute is used for identifiers that are 
structures, and the member attribute is used for identifiers 
that are members of structures. Structures are described 
under Aggregates in section 3, Data Elements. The LIKE 
attribute can be used to expand one structure to the form of 
another. The REFER option for a based structure is used to 
preserve the value of an extent expression as the value of 
one of the members. Each structure is a hierarchical 
collection of variables. The structure has members. Each 
member can in turn be a substructure that is both a member 
of the structure and a structure with members. The 
members at the bottom level of the hierarchy are variables 
with data type attributes. 

The structure and member attributes are aggregation attri- 
butes for variables or parameter descriptors. The structure 
and member attributes cannot be specified by keyword. The 
syntax of structures and members is shown in figure 4-84, 
and examples are shown in figure 4-85. 

The structure name is declared as level 1, and members of 
the structure are declared in outline form with higher level 
numbers. The list of declared items is processed from left 
to right, with continual reference to the level number of the 
previous item. A higher level number indicates that the 
item is a member contained by the preceding item. The 
same level number indicates that the item is at the same 
hierarchical level as the previous item. A lower level 
number indicates that the item is not contained by the 
preceding item and that the item is immediately contained 
by the nearest preceding item with a lower level number. 
Items that contain one or more members are substructures 
within the level 1 structure. 



STREAM ATTRIBUTE 

The STREAM attribute indicates that a file is to be treated 
as a continuous stream of characters representing input data 
or output data. The STREAM attribute specifies that 
stream I/O operations are to be used for the file. 

The STREAM attribute is a file description attribute used 
for a file constant. STREAM cannot be specified for a file 
variable. The STREAM attribute conflicts with the 
RECORD, UPDATE, SEQUENTIAL, DIRECT, and KEYED 
attributes that apply only to record I/O operations. The 
STREAM attribute is specified by keyword. The syntax of 
STREAM is shown in figure 4-82, and examples of STREAM 
are shown in figure 4-83. 



STREAM 



The structure variable with level number 1 can be declared 
with a scope attribute and storage type attribute. Any 
structure can also be declared with dimension, alignment, 
and LIKE. Alignment can be declared but is propagated 
through the structure. After propagation of alignment, 
alignment is known for all members. A structure cannot be 
declared with any data type attributes. If structure is 
specified for a parameter descriptor, scope and storage type 
cannot be specified. Scope and storage type do not apply to 
descriptors. The substructures, if any, can be declared only 
with dimension and alignment. 

Each member that is not a structure can be declared with 
dimension, alignment, and a valid combination of data type 
attributes. Storage type does not apply to members. Every 
member has the INTERNAL attribute. INITIAL can be used 
to assign an initial value to a member that is not a 
structure. INITIAI. cn.'iot be used for the ;■*.•: nbcr if any 
poV.'rmnc structure is f1im---p.-:i.-nr-fi. 



Figure 4-82. STREAM Attribute Syntax 



A structure 
memory. 



must not occupy more than 120 000 words of 



60388100 B 



4-23 



For variables 


















1 structure-name 


f , , (level member-name 

I [attribute] ■•■.{,.. 

I I level member-name 

I LIKE structure-reference 


[attribute] . . 
LIKE structure- 


-reference [attribute] 




.(...) 


where each specified 


level is 


an unsigned decimal integer indicating the hierarchical 


level 


of the mem 


ber 




For parameter descriptors 
















1 [attribute] . . . , 


\ level 


[attribute] ...?,,, 














where structure and 


member 


names are not supplied 















Figure 4-84. Structure, Member, and LIKE Attribute Syntax 



DECLARE 1 Ml) UNALIGNED. 




2 B. 




3 e<5> CHAR(IO) . 




3 D(10i5) FLOAT BIN. 




2 E. 




3 F FIXED DECIMAL; 




/•A IS AN ARRAY OF STRUCTURES 


•/ 


/♦B IS A SUBSTRUCTURE. MEMBERS C AND 


D»/ 


/«E IS A SUBSTRUCTURE, MEMBER F 


•/ 


/* 


•/ 


/•DIMENSIONALITY OF A IS INHERITED 


•/ 


/«B IS EFFECTIVELY (3) 


•/ 


/»C IS EFFECTIVELY (3.5) 


•/ 


/»D IS EFFECTIVELY (3.10.5) 


•A 


/•E IS EFFECTIVELY (3) 


*/ 


/*F IS EFFECTIVELY (3) 


•/ 


/« 


•/ 


/•ALIGNMENT PROPAGATES FROM A 


•/ 


/«B AND E ARE UNALIGNED 


•/ 


/•C, D, AND F ARE UNALIGNED 


•/ 


DECLARE 1 M LIKE A; 




/«M IS EXPANDED TO THE FORM OF A 


•/ 


/•DIMENSIONALITY OF A IS IGNORED 


•/ 


/•ALIGNMENT OF A IS IGNORED 


•/ 


/•M EXPANDS TO* 


•/ 


/» 2 B 


»/ 


/• 3 C(5) CHAR(IO) 


»/ 


/• 3 DUO. 5) FLOAT BIN 


•/ 


/• 2 E 


•/ 


/• 3F FIXED DECIMAL 


•/ 


/•NO DIMENSIONS ARE INHERITED 


•/ 


/•C IS UNALIGNEO BY DEFAULT 


»/ 


/»0 AND F ARE ALIGNED BY DEFAULT 


•/ 



Figure 4-85. Structure, Member, 
and LIKE Attribute Examples 

LIKE Attribute 

The LIKE attribute can be used to expand a structure to the 
form of another structure. The syntax of the LIKE attribute 
is included in figure 4-84. The LIKE attribute cannot be 
specified for a parameter descriptor. The structure- 
reference must be unsubseripted. The referenced structure 
or substructure cannot be declared with the LIKE attribute. 
In the structure expansion, any dimension or alignment 
attributes of the referenced structure are not used. All 
members of the referenced structure and all declared 
attributes of the members are copied. Level numbers are 



modified as necessary to preserve the hierarchical structure. 
The declaration with the LIKE attribute must not be 
immediately followed by an item declared with a higher 
level number. 

Since expansion with LIKE is essentially a copy operation, 
any dimensionality inherited by the referenced structure is 
ignored. In. any given block, the structures referenced in all 
LIKE attributes are determined before any expansion with 
LIKE is performed. 



Completion of Structure Declarations 



Three steps are involved in the completion of structure 
declarations. The expansion of any LIKE attributes is 
performed. Level numbers for members are then modified 
so that the level number of each member is one greater than 
the level number of the immediately containing structure. 
The last step in completing structure declarations is the 
propagation of alignment. During default processing, the 
declarations of the structure and all members are completed 
with default attributes. 



REFER Option for BASED Structures 

The REFER option is used to preserve the value of an extent 
expression as the value of a member of the structure. The 
structure must be declared with the BASED attribute. The 
REFER option is used in an extent in the declaration of a 
member of the based structure. An example of the REFER 
option is shown in figure 4-86. ^ 



DECLARE 


J AUTOMATIC FIXED DEC INITUOM 


DECLARE 


1 GSTRUC BASED, 




2 KEEP FIXED DEC. 




2 VAL CHAR<S»J REFER (KEEP) ) 1 


/•WHEN GSTRUC IS ALLOCATED. KEEP IS •/ 


/•SET TO 


50. SUBSEQUENT REFERENCE •/ 


/•TO VAL 


USES THE VALUE OF KEEP RAThER*/ 


/•THAN REEVALUATING 5«J •/ 



Figure 4-86. REFER Option Example 



The REFER option is specified in an extent for area size, 
character string length, bit string length, or array bounds of 
a dimension. Extents are described later in this section 
under Extents. The extent expression cannot contain 
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references to any member of the same structure or to the 
structure itself. The reference in the REFER option must 
identify a scalar and computational member that is declared 
earlier in the structure. The extent expression must be 
scalar and computational. 

When the based structure is allocated, all extents are 
evaluated to determine the size of the based generation. 
After the generation is allocated, each structure member 
named in a REFER option is assigned the value of the extent 
with which it is associated. Therefore, an allocated 
generation for a based structure has some initial values that 
define extents for members appearing later in the structure. 
The REFER option is effective for each allocation of the 
based structure. When the based structure is referenced or 
freed, the extent expression is not evaluated. The value of 
the extent is taken from the member designated by the 
REFER option. 



UPDATE ATTRIBUTE 

The UPDATE attribute indicates that a file is to be used 
either for input or for output. An UPDATE file can only be 
used for record I/O operations. 

The UPDATE attribute is a file description attribute used 
for a file constant. UPDATE cannot be specified for a 
file variable. The UPDATE attribute conflicts with 
INPUT, OUTPUT, STREAM, and PRINT. OUTPUT and 
INPUT are alternatives for the use of the file. STREAM 
and PRINT are used for stream I/O rather than record 
I/O. The UPDATE attribute is specified by keyword. The 
syntax of UPDATE is shown in figure 4-87, and examples 
of UPDATE are shown in figure 4-88. 



UPDATE 



Figure 4-87. UPDATE Attribute Syntax 



DECLARE VH FILE RECORD SEOL UPDATE; 
DECLARE FILE* UPOATE; 



Figure 4-88. UPDATE Attribute Examples 



Appearance of the UPDATE attribute in a DECLARE 
statement declaration implies the FILE attribute. The 
UPDATE attribute also implies the RECORD attribute. 



VARIABLE ATTRIBUTE 

The variable attribute applies to identifiers used as vari- 
ables. A variable can have different values during program 
execution. 

The variable attribute indicates that an identifier is the 
name of a variable. The variable attribute eannot be 
specified by xyword Examples of the variable attribute 
are show ;:. f '.«!-.- 4-89. The variable, attribute can be used 
with any storage type or scope. Variable conflicts with the 
constant, BUILTIN, and condition attributes. When defaults 
are applied to identifiers, most identifiers are supplied with 
the variable attribute by default. Except if the FILE or 
ENTRY attribute is present for an identifier that is not a 
parameter, the variable attribute is applied by default. 



DECLARE RhVAL FLOAT BINARY 1 




/•RHVAL IS A VARIABLE 


*/ 


DECLARE D CHAR(SM 




/»D IS A VARIABLE 


•/ 


DECLARE ARE A2 AREAt 




/•AREA2 IS A VARIABLE 


•/ 


DECLARE JN LABEL 1 




/«JN IS A VARIABLE 


'•/ 



Figure 4-89. Variable Attribute Examples 



VARYING AND NONVARYING ATTRIBUTES 

The VARYING attribute and the nonvarying attribute indi- 
cate whether the current length of a character string or bit 
string can ever be shorter than the maximum specified 
length. A nonvarying string always has the specified length. 
A VARYING string has a current length and the available 
maximum length. 

The VARYING and nonvarying attributes are string data 
type attributes for variables, parameter descriptors, and 
returns descriptors. The VARYING attribute can be 
specified for a variable that is a scalar or an array. 
VARYING and nonvarying conflict with the structure attri- 
bute. The VARYING attribute is specified by keyword. The 
syntax of VARYING is shown in figure 4-90. The nonvarying 

VARYING and nonvarying are shown in figure 4-91. 



VARYING 



Figure 4-90. VARYING Attribute Syntax 



DECLARE TSTRING CHAR<65)» 
/•TSTRING IS NONVARYING BY DEFAULT 


•/ 


DCL DSTRING CHAR<105> VARYING! 
/•MAXIMUM LENGTH OF DSTRING IS 105 
/•CURRENT LENGTH OF DSTRING IS NOT 


»/ 
SET*/ 


DCL BITL BITdOO 
/♦MAXIMUM LENGTH 
/•CURRENT LENGTH 


VARYING INIT<tlltB)l 
OF BITL IS 100 •/ 
OF BITL IS 2 •/ 



Figure 4-91. VARYING and Nonvarying 
Attribute Examples 

A string variable or descriptor not declared as VARYING is 
known to be nonvarying. Strings involved in string overlay 
defining must be nonvarying. All character constants and 
bit constants are nonvarying. A string declared as 
VARYING has a string value with a current length estab- 
lished by the most recent assignment. 



EXTENTS 

An extent is a specification of one of the following values: 

• Size in the AREA attribute 

• Length in the BIT attribute 
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• Length in the CHARACTER attribute 

• Array bounds for each dimension in the dimension 
attribute 

An extent can be specified in a DECLARE statement, or in a 
RETURNS option in a PROCEDURE or ENTRY statement. 
An area size, bit string length, or character string length 
can be specified as an extent expression or an asterisk 
extent. The array bounds for a dimension of an array can be 
specified as an extent expression for the upper bound, a pair 
of extent expressions separated by a colon for the lower 
bound and the upper bound, or an asterisk extent. 

The appearance of an asterisk as an extent indicates that 
any area size, bit string length, character string length, or 
array bounds are acceptable. The actual extent is deter- 
mined each time a generation is allocated for the variable or 
associated with the descriptor. For example, a parameter 
declared as BIT(*) can represent a bit string of a different 
length each time the procedure is invoked. The length is 
dependent on the length of the corresponding argument 
passed to the procedure. 

The storage type of the variable, or the type of descriptor, 
determines when the extent expressions are evaluated, as 
shown in table 4-1. 

The legal usage of extent expressions and asterisk extents 
depends on the storage type of the variable, or depends on 
the type of descriptor, as shown in table 4-2. An expression 
used as an extent must be scalar and computational. Extent 
expressions are evaluated and converted to fixed binary 
integer. An evaluated extent can be negative only if the 
extent expression specifies a lower bound or upper bound of 
a dimension. 

SUMMARY OF ATTRIBUTES 

A summary of attributes is provided in table 4-3. The 
attributes are listed in alphabetic order. A similar table in 
section 5, Declarations, is intended as a summary of 
attribute defaults and implications. 



TABLE 4-1. EVALUATION OF EXTENTS 



Storage type or 
type of descriptor 


Time of evaluation 
of extent 


STATIC 


Before program execution begins, 
when storage is allocated for all 
static variables. 


AUTOMATIC 


When storage is allocated for the 
variable, during activation of the 
block immediately containing the 
declaration. 


CONTROLLED 


When storage is allocated for the 
variable by execution of an 
ALLOCATE statement. 


BASED 


When the variable is allocated, and 
each time the variable is referenced. 


DEFINED 


During activation of the block 
immediately containing the declara- 
tion. Note that the defined variable 
is not associated with a generation 
at this time. 


Parameter 


During activation of the block 
immediately containing the declara- 
tion, when the parameter is asso- 
ciated with the generation belonging 
to an argument passed to the 
procedure. 


Parameter 
descriptor 


During evaluation of the argument 
list in a procedure reference. 


Returns 
descriptor 


...-. ..-..■ ,. 'the procedure. 
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TABLE 4-2. EXTENTS 



Storage type or 
type of descriptor 



Legal form of extent expression 
or asterisk extent 



Storage type or 
type of descriptor 



Legal form of extent expression 
or asterisk extent 



STATIC 
AUTOMATIC 



CONTROLLED 



BASED 



BASED, for 
structure member 
with REFER option 



Expression 




:. The 

evaluation of the extent of a var- 
able must not require a reference 
to the value of the variable itself. 

Expression 

The extent of a controlled variable 
cannot reference the controlled 
variable itself. 

Expression 

The extent of a based variable 
cannot reference the based vari- 
able itself, except as described for 
structure member with or without 
REFER option. 

Expression REFER (refer-variable) 

When the based structure is allo- 
cated, the expression is evaluated 
and used to initialize the refer- 
variable. When the BASED struc- 
ture is referenced or freed, the 
value of the refer-variable is used. 
The refer-variable must be a scalar 
member of the same based struc- 
ture and must be declared earlier 
in the structure. The user must 
not assign values to the refer- 
variable. 



BASED, for 
structure member 
without REFER 
option 



DEFINED 



Parameter 



Parameter 
descriptor 

Returns 
descriptor 



When the based structure is allo- 
cated, referenced, or freed, the 
expression is evaluated and used as 
the extent. The expression can 
reference a scalar member of the 
same based structure. The refer- 
enced member must be declared 
earlier in the structure. If the 
extent references an earlier mem- 
ber, the declaration cannot be used 
to allocate the based structure, 
and the referenced member must 
contain the correct extent. 

Expression 

The expression car reference other 
automatic or defined variables 
le slHret n U I ■-.= ..■ ; .-.- . The 
evaluation of the extent of a vari- 
able must not require a reference 
to the variable itself. 

Asterisk or optionally signed 
; :.■ ■ intcgci 

Asterisk or optionally signed 
decimal integer 

Optionally signed decimal integer 

Array bounds are not pemitted in 
a returns descriptor. Asterisk 
extents are not permitted in a 
returns descriptor. 



TABLE 4-3. SUMMARY OF ATTRIBUTES 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


ALIGNED 


Alignment 


variable 

parameter descriptor 

returns descriptor 


UNALIGNED 


AREA(size) 


Noncomputational data type 


variable 


any other data type 






parameter descriptor 


structure 






returns descriptor 




AUTOMATIC or 
AUTO 


Storage type 


variable 


any other storage type 

EXTERNAL 

member 


BASED 


Storage type 


variable 


any other storage type 

EXTERNAL 

member 
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TABLE 4-3. SUMMARY OF ATTRIBUTES (Cont'd) 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


BINARY or 
BIN 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

DECIMAL 

structure 


BITdength) 


String data type 


variable 


any data type other than 






parameter descriptor 
returns descriptor 
literal constant 


string 

CHARACTER 

structure 


BUILTIN 


None 


identifier used as builtin 
function name 


condition 
constant 
variable 
EXTERNAL 


CHARACTEROength) or 
CHAR(length) 


String data type 


variable 

parameter descriptor 


any data type other than 
string 






returns descriptor 
literal constant 


BIT 
structure 


condition 


None 


identifier used in 

programmer-named 

condition 


BUILTIN 
constant 
variable 
INTERNAL 


constant 


None 


identifier used as named 
constant 

literal constant 


BUILTIN 
condition 
variable 


CONTROLLED or 
CTL 


Storage type 


variable 


any other storage type 
member 


DECIMAL or 
DEC 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

BINARY 

structure 


DEFINED or 
DEF 


Storage type 


variable 


any other storage type 

EXTERNAL 

member 

INITIAL 

VARYING 


dimension 


Aggregation 


variable 


■■■ TRY 






label constant 








parameter descriptor 


FILE 


DIRECT 


File description 


file constant 


STREAM 

PRINT 

SEQUENTIAL 
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TABLE 4-3. SUMMARY OF ATTRIBUTES (Cont'd) 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


ENTRY 


Noncomputational data type 


variable 
named constant 
parameter descriptor 


any data type other than 
RETURNS 

dimension 

structure 

any storage type other 
than parameter 

member 


ENVIRONMENT or 
ENV 


File description 


file constant 


None 


EXTERNAL or 


Scope 


variable 


BUILTIN 


EXT 




named constant 


INTERNAL 






identifier used in 

programmer-named 

condition 


LABEL 

format 

member 

AUTOMATIC 

BASED 

DEFINED 

parameter 


FILE 


Noncomputational data type 


variable 


any other data type 






named constant 
parameter descriptor 


finy ,«t«r«re type other 
than parameter 

dimension 

structure 

member 


FIXED 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

FLOAT 

structure 


FLOAT 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

FLXED 

precision (p,q) 

structure 


format 


Noncomputational data type 


named constant 


any other data type 

dimension 


INITIAL 


Initialization 


variable 


parameter 
DEFINED 








structure 

ENTRY 

FILE 

format 

LABEL with STATIC 
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TABLE 4-3. SUMMARY OF ATTRIBUTES (Cont'd) 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


INPUT 


File description 


file constant 


OUTPUT 

PRINT 

UPDATE 


INTERNAL or 
INT 


Scope 


variable 
named constant 
builtin function 


condition 
EXTERNAL 


KEYED 


File description 


file constant 


STREAM 
PRINT 


LABEL 


Noncomputational data type 


variable 


any other data type 






named constant 


STATIC with INITIAL 


- 




parameter descriptor 


structure 


LIKE 


None 


None 


any data-type 
INITIAL 


member 


Aggregation 


variable 


EXTERNAL 






parameter descriptor 


any storage type 


nonvarying 


String data type 


variable 


any data type other than 






parameter descriptor 
returns descriptor 
literal constant 


string 
VARYING 
• structure 


OFFSET 


Noncomputational data type 


variable 


any other data type 






parameter descriptor 


structure 






returns descriptor 




OUTPUT 


File description 


file constant 


INPUT 
UPDATE 


parameter 


Storage type 


variable 


any other storage type 

member 

INITIAL 


PICTURE or 


Pictured data type 


variable 


any other data type 


PIC 




parameter descriptor 
returns descriptor 


structure 


POINTER or 


Noncomputational data type 


variable 


any other data type 


PTR 




parameter descriptor 
returns descriptor 


structure 


PQSITION(start-pos) or 
POS(start-pos) 


None 


variable (for string overlay 
defining only) 


any storage type except 
DEFINED 

any data type other 
than string and pictured 

EXTERNAL 

ALIGNED 

member 

VARYING 

INITIAL 
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TABLE 4-3. SUMMARY OF ATTRIBUTES (Cont'd) 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


precision 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

structure 


PRINT 


File description 


file constant 


INPUT 

UPDATE 

RECORD 

SEQUENTIAL 

DIRECT 

KEYED 


REAL 


Arithmetic data type 


variable 

parameter descriptor 
returns descriptor 
literal constant 


any data type other than 
arithmetic 

structure 


RECORD 


File description 


file constant 


STREAM 
PRINT 


RETURNS 


Noncomputational data type 


variable 
named constant 
parameter descriptor 


any data type other than 
ENTRY 

structure 

member 


SEQUENTIAL or 
SEQL 


File description 


file constant 


STREAM 

PRINT 

DIRECT 


STATIC 


Storage type 


variable 


any other storage type 

member 

LABEL with INITIAL 


STREAM 


File description 


file constant 


RECORD 

UPDATE 

SEQUENTIAL 

DIRECT 

KEYED 


structure 


Aggregation 


variable 


any data type 






parameter descriptor 


INITIAL 


UNALIGNED 


Alignment 


variable 

parameter descriptor 

returns descriptor 


ALIGNED 


UPDATE 


File description 


file constant 


INPUT 
OUTPUT 
STREAM 
PRINT 
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TABLE 4-3. SUMMARY OF ATTRIBUTES (Cont'd) 



Attribute: 


Belongs to the following 
category of attributes: 


Can be in the completed 
attribute set for: 


And conflicts with 
the following attributes: 


variable 


None 


identifier used as variable 


BUILTIN 
condition 
constant 


VARYING 


String data type 


variable 


any data type other than 






parameter descriptor 


string 






returns descriptor 


nonvarying 

DEFINED 

structure 
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DECLARATIONS 



Declarations of identifiers used in a PL/I program are 
accumulated and completed during program compilation. 
The completed declarations are used during program execu- 
tion to control the use of variables, named constants, builtin 
functions, and programmer-named conditions. A specific 
identifier can be used in different ways in different blocks. 
Each identifier used in a PL/I program has at least one 
declaration. 

This section describes the ways in which identifiers are 
declared, either by DECLARE statement or by usage of the 
name. The operation of explicit, contextual, and implicit 
declarations is described, as well as the application of 
default attributes. Declaration of an identifier usually 
involves declaring attributes for the identifier. Default 
attributes are added as necessary to complete the descrip- 
tion of the declared identifier. 

Parameter descriptors and returns descriptors can also 
contain attributes. Descriptors are completed with default 
attributes in the same way as declarations are completed. 



SCOPE OF DECLARATIONS 

The scope of a declaration specifies the parts of the 
program within which the declared identifier is known. 

I The scope of an identifier is determined by its position 
within the source program 
EXTERNAL attribute. 



and by the INTERNAL or 



An identifier with the INTERNAL attribute is known in the 
block that immediately contains the declaration of the 
identifier. In addition, the identifier is known in all 
contained blocks except those in which another declaration 
for the same name is effective. When another declaration 
of the same name exists in a contained block, the name is 
redeclared in that block (and can be INTERNAL or 
EXTERNAL). Each declaration of an identifier as 
INTERNAL constitutes a separate declaration for the 
identifier. If an identifier is declared as INTERNAL and 
declared again in a contained block, two separate identifiers 
are declared for use in different blocks. 



procedures that declare the name as EXTERNAL. Effec- 
tively, external entry constants, external file constants, and 
external programmer-named conditions can be known in 
several external procedures. External variables can be 
known in other external procedures without being passed as 
arguments. An example of the use of INTERNAL and 
EXTERNAL is shown in figure 5-1. 



PR: 

PROCEDURE OPTIONSiMAINM 

DO. A INTERNAL FIXED BINARY? 

/• DECLARED A IS KNOWN IN PR. 

DO. B INTERNAL FIXED BINARY* 

/» DECLARED B IS KNOWN IN PR AND 

/« KNOWN IN Bl AND B2. 

DCL C EXTERNAL CHAR (15); 

/« OECLAREO C IS KNOWN IN PR AND 

/• MERGED WITH DECLARED C IN B2. 



*/ 
»/ 

*/ 
*/ 



Bl: 



BEGIN! 

DCL A EXTERNAL POINTERI 

/« DECLARED A IS KNOWN IN Bl 

/* AND KNOWN IN B2. 

DCL C INTERNAL AREA; 

/» DECLARED C IS KNOWN IN Bl, 



*/ 



B2! 



begin; 

OCL C EXTERNAL CHAR(15>1 

/« DECLARED C IS KNOWN IN B2 •/ 

/« AND MERGED WITH C IN PR. */ 



END B2; 
END 61 ; 
END PR! 



Figure 5-1. Scope of Declared Identifiers 



An identifier with the EXTERNAL attribute is known in 
contained blocks in the same way as an identifier declared 
INTERNAL. In addition, an identifier declared EXTERNAL 
is known outside the external procedure. All declarations of 
an identifier as EXTERNAL are merged when the program is 
loaded for execution. Therefore, all declarations of an 
identifier as EXTERNAL must declare the identifier with 
the same attributes. For the few minor exceptions to this 
rule, see the EXTERNAL attribute in section 4, Attributes. 
If an identifier is declared as EXTERNAL, the same 
identifier can be declared in a contained block as 
INTERNAL and with different attributes. 

Declaration of an identifier as EXTERNAL sets up commun- 
ication between external procedures. A name declared as 
EXTERNAL is recognized as the same in all external 



DECLARATION PROCESSING 

The PL/I compiler accumulates declarations during compi- 
lation. The order of declaration processing is as follows: 

1. Explicit declarations are recognized and established for 
statement prefixes, parameters in parameter lists, and 
DECLARE statement declarations. 

2. Contextual declarations are established for all identi- 
fiers that are used in certain contexts but are not 
declared explicitly. 

3. Implicit declarations are established for all identifiers 
that are used but are not declared explicitly or 
contextually. 
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After all explicit, contextual, and implicit declarations have 
been established, the compiler completes the declaration for 
each identifier with default attributes. 

If attributes are incorrectly supplied in an explicit 
DECLARE statement declaration, the compiler produces 
diagnostic messages during compilation. Default attributes 
are selectively added to each declaration in such a manner 
that no conflict results from completion of the declaration. 



SYSIN ASSUMPTIONS 

Before the processing of declarations begins, the compiler 
makes the following additions to the source text of the 
program: 

• For each GET statement with no FILE option or 
STRING option, the compiler supplies a FILE option of 
the form 

FILE(SYSIN) 



SYSPRINT ASSUMPTIONS 

Before the processing of declarations begins, the compiler 
makes the following additions to the source text of the 
program: 

• For each PUT statement with no FILE option or 
STRING option, the compiler supplies a FILE option of 
the form 



FILE(SYSPRINT) 

For each COPY option with no file reference, 
compiler substitutes a COPY option of the form 



the 



COPY(SYSPRINT) 

The compiler also generates an explicit declaration in each 
external procedure for SYSPRINT with the attributes 

:;\ti-;rnal i n/ r . stream oi'tput print. 



EXPLICIT DECLARATIONS 

Explicit declarations are established for entry prefixes, label 
prefixes, format prefixes, parameters in parameter lists, and 
DECLARE statement declarations. 

For each identifier, only one explicit declaration can be 
made in any given block. The compiler issues diagnostics for 
multiple explicit declarations of the same identifier, except 
in the following cases: 

• A member name can be identical to another identifier 
declared in the same block, but any member name must 
be unique within the structure that immediately con- 
tains the member. The fully structure-qualified mem- 
ber name must be unique within the block. 

• An identifier can be explicitly declared by appearance 
as a parameter in the parameter list of a PROCEDURE 
or ENTRY statement and can also be explicitly declared 
in a DECLARE statement. Any given variable can also 
appear as a parameter at several entry points in the 
same procedure. 

• An array of label constants is explicitly declared in a 
DECLARE statement and also explicitly declared by the 
appearance of one or more of the array elements as 
statement prefixes. 



DECLARATION OF STATEMENT 
PREFIXES 

Explicit declaration occurs for identifiers contained in entry 
prefixes, label prefixes, and format prefixes. The explicit 
declarations by usage are as follows: 

• Each entry prefix on a PROCEDURE or ENTRY 
statement is explicitly declared with the constant and 
ENTRY attributes. In addition, a scope attribute is 
supplied explicitly. If the PROCEDURE or ENTRY 
statement belongs to an external procedure, the 
EXTERNAL attribute is supplied and the declaration is 
not contained in any block. If the procedure is an 
internal procedure, the INTERNAL attribute is supplied 
and the declaration is made in the block that immedi- 
ately contains the procedure. If the PROCEDURE or 
ENTRY statement has the RETURNS option, the 
RETURNS attribute and the specified returns descriptor 
are added to the declaration. 

• Each label prefix is explicitly declared with the 
constant, LABEL, and INTERNAL attributes. Any label 
prefix attached to a BEGIN statement is declared in the 
block that immediately contains the BEGIN block. Each 
label prefix of a statement other than BEGIN is 
declared in the block in which the statement occurs. 

• Each format prefix on a FORMAT statement is explic- 
itly declared with the constant, format, and INTERNAL 
attributes. Each format prefix is declared in the block 
in which the FORMAT statement occurs. 

Default attributes are added after all explicit, contextual, 
and implicit declarations have been processed. 



DECLARATION OF PARAMETERS 

Explicit declaration occurs for identifiers contained in the 
parameter list of a PROCEDURE or ENTRY statement. The 
declaration applies the parameter attribute to each identi- 
fier in the parameter list. Other attributes for each 
identifier can be supplied by an explicit DECLARE state- 
ment declaration of the identifier in the same block. 
Default attributes are added after all explicit, contextual, 
and implicit declarations have been processed. 



DECLARE STATEMENT DECLARATIONS 

Explicit declarations for identifiers can be made with the 
DECLARE statement. Each declaration made by DECLARE 
statement is established in the block that immediately 
contains the DECLARE statement. 

A declaration is established for each identifier in the 
DECLARE statement. Each declaration has an attribute set 
consisting of the explicitly declared attributes. Default 
attributes are added after all explicit, contextual, and 
implicit declarations have been processed. 

NOTE 

Duplicate attribute keywords for the same identi- 
fier must not be supplied in the DECLARE state- 
ment. The cmnoilc-r diagnoses Jupli-'nte : l l:ributo 
keywords os errors. 

A DECLARE statement can create declarations for more 
than one identifier. When a factored declaration is used to 
apply the same attribute to several identifiers, the attribute 
is applied to each identifier. 
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If an identifier is declared with the dimension attribute, a 
declaration is established for an array of identical data 
items. The dimensioned identifier can be a structure, in 
which case the identical elements of the array are struc- 
tures and the members inherit the dimensions of the 
structure. If the members of the structure are also 
dimensioned, the members are established with the declared 
dimensions and with the inherited dimensions, as described 
under Aggregates in section 3, Data Elements. 

For a declared structure, a declaration is established for the 
structure and for each member. The completion of 
structure declarations is performed in the following steps: 

1. The expansion of LIKE attributes is performed if the 
structure is declared with the LIKE attribute, as 
described under LIKE attribute in section 4, Attributes. 

2. The level numbers declared for members are modified 
as necessary so that the level number of each member 
is one greater than the level number of the immediately 
containing structure, as described under Structure and 
member attributes in section 4. 

3. Alignment attributes are propagated through the struc- 
ture, as described under ALIGNED attribute in 
section 4. 

If an identifier is declared as BUILTIN in a DECLARE 
statement, the declared identifier must match the name of a 
supplied builtin function. Explicit declaration of an 
identifier as BUILTIN is usually not necessary, as described 
under BUILTIN attribute in seetion 4. 

CONTEXTUAL DECLARATIONS 

The appearance of an identifier in a specific context is often 
sufficient to establish the intended use of the identifier. A 
contextual declaration is not made if an explicit declaration 
exists for the identifier in the same block or in a containing 
block. If no explicit declaration exists, a contextual 
declaration with certain attributes is established in the 
following cases: 

• AREA and variable attributes are supplied for an 
identifier referenced as an area in an OFFSET attribute 
or the IN option of an ALLOCATE or FREE statement. 

• BUILTIN attribute is supplied for an identifier that 
matches the name of a builtin function if the identifier 
is referenced and is followed by a parenthesized 
argument list. 

• Condition attribute is supplied for an identifier refer- 
enced in a programmer-named condition in an ON, 
SIGNAL, or REVERT statement. 

• FILE and constant attributes are supplied for an 
identifier referenced as a file in a FILE or COPY option 
of an I/O statement and for an identifier referenced as 
a file in an I/O condition name in an ON, SIGNAL, or 
REVERT statement. 

• POINTER and variable attributes are supplied for an 
identifier referenced as a locator in the SET option of 
an ALLOCATE, READ, or LOCATE statement, for an 
identifier used as a locator in a locator-qualified 
reference, and for an identifier referenced as a locator 
in a BASED attribute. 

When a contextual declaration is processed, the declaration 
is established in the outermost block of the external 
procedure. The contextual declaration therefore is known in 
all blocks except any internal blocks in which an explicit 
declaration of the same identifier is effective. The scope of 
the identifier can default to INTERNAL or EXTERNAL. 
Default attributes are added after all explicit, contextual, 
and implicit declarations are processed. 



IMPLICIT DECLARATIONS 

An implicit declaration is established for each identifier not 
declared explicitly or eontextually. An implicit declaration 
is a declaration with no attributes. Each implicit declara- 
tion is established in the outermost block of the external 
procedure. An implicit declaration is not made if an explicit 
or contextual declaration exists for the identifier in the 
block or in a containing block. Any implicit declaration 
operates as if the statement: 

DECLARE identifier; 

had been written in the external procedure. Default 
attributes are added after all explicit, contextual, and 
implicit declarations are processed. An implicit declaration 
sets up arithmetic defaults when the default attributes are 
supplied. 

DEFAULT ATTRIBUTES 

Default attributes are added as necessary to each explicit, 
contextual, and implicit declaration. The compiler adds 
default attributes to complete the attribute set for each 
declaration. 

After defaults have been applied, the attribute set for each 
identifier is a complete and consistent set of attributes, 
with one exception. The set of file description attributes 
for each file constant is completed at open time for the file. 
The rules for default file description attributes are 
described in section 8, Input/Output. 

The application of default attributes occurs in a specific 
order. Each step of the sequence can add attributes to the 
attribute set. In each step, the decision to add default 
attributes is based on the existing attributes in the attribute 
set for the identifier. The steps in default attribute 
processing are as follows: 

1. ENTRY: If RETURNS is present and if ENTRY is not 
present, ENTRY is added. Only the keyword ENTRY is 
added; parameter descriptors for ENTRY are not 
created. 

2. FILE: If one or more of the file description attributes 
STREAM, RECORD, INPUT, OUTPUT, UPDATE, 
SEQUENTIAL, DIRECT, KEYED, or PRINT is present 
and if FILE is not present, FILE is added. Presence of 
the ENVIRONMENT file description attribute by itself 
does not add FILE. 

3. Arithmetic: Arithmetic defaults are added for each 
identifier or descriptor not already known to be 
nonarithmetic. Arithmetic defaults are not added if the 
ENTRY, LABEL, FILE, format, AREA, POINTER, 
OFFSET, BIT, CHARACTER, PICTURE, structure, 
BUILTIN, condition, or constant attribute is present. 
Arithmetic defaults are either the standard defaults or 
the INRULE defaults. 

The standard (ANSI standard) arithmetic defaults are 
added in the following steps: 

If no base is present, BINARY is added. 

If no scale is present, FIXED is added. Precision of 
the form (p,q) also establishes the FIXED attribute. 

If no mode is present, REAL is added. 

If INRULE processing is specified with the INRULE 
parameter of the PL1 control statement, then INRULE 
arithmetic defaults are added in the following steps: 

If the identifier begins with one of the letters I 
through lh und if I he base, scaV', am', mode arc nil 
absent, then FIXED and BINARY are added. 
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If a precision of the form (p,q) is present, FIXED is 

added. 

If no scale is present, FLOAT is added. 
If no mode is present, REAL is added. 

Samples of default arithmetic attributes for ANSI 
standard and for INRULE are provided in table 5-1. 

4. Precision: If the identifier is arithmetic, the default 
precision is supplied in the following way: 

For FIXED BINARY, if only p is present, q is 
supplied as 0. If both are unspecified, precision 
is (15,0). 

For FIXED DECIMAL, if only p is present, q is 
supplied as 0. If both are unspecified, precision 
is (5,0). 

For FLOAT BINARY, precision is (48). 

For FLOAT DECIMAL, precision is (14). 

5. Length, size, or position: If CHARACTER, BIT, AREA, 
or POSITION is present without a parenthesized length, 
size, or position, the default is: 

CHARACTER(l) 
BIT(l) 
AREAU50) 
POSITION(l) 

6. Nonvarying: If CHARACTER or BIT is present and 
VARYING is not present, then nonvarying is added. 

7. Variable or constant: If variable is not present, con- 
stant is not present, BUILTIN is not present, condition 
is not present, and if the declared item is not a 
descriptor, then variable or constant is added according 
to the following rules: 

Constant is added if ENTRY or FILE is present and 
parameter is not present. 

Variable is added in all other cases. 



8. INTERNAL or EXTERNAL: If INTERNAL is not 
present, EXTERNAL is not present, and the declared 
item is not a descriptor, then a scope attribute is added 
according to the following rules: 

EXTERNAL is added if condition is present. 

EXTERNAL is added if FILE and constant are 
present. 

EXTERNAL is added if ENTRY and constant are 
present. 

INTERNAL is added in all other cases. 

9. Storage type: If variable is present, member is not 
present, and no storage type (AUTOMATIC, BASED, 
CONTROLLED, STATIC, DEFINED or parameter) is 
present, then AUTOMATIC or STATIC is added accord- 
ing to the following rules: 

If EXTERNAL is present, STATIC is added. 

If INTERNAL is present, AUTOMATIC is added. 

10. Alignment: If ALIGNED is not present, UNALIGNED is 
not present, and the declared item is a variable or a 
descriptor, an alignment attribute is added according to 
the following rules: 

If CHARACTER, BIT, or PICTURE is present, 
UNALIGNED is added. 

ALIGNED is added in all other cases. 



SUMMARY OF DEFAULTS 

A summary of default attributes is provided in table 5-2. 
The full list of attributes is included in the summary, even 
though some attributes are not involved in default proc- 
essing (for example, dimension and ENVIRONMENT). By 
convention, attributes that can be recognized by keyword 
are shown in upper case. 

The default file description attributes are covered in this 
summary. File description defaults are applied when the file 
constant is opened and removed when the file is closed, as 
described in section 8, Input/Output. 



TABLE 5-1. DEFAULTS FOR PARTIALLY DECLARED ARITHMETIC ITEMS 



Arithmetic Attribute 
Declared t 


Standard Arithmetic 
Default 


INRULE Default 
for r-N 


INRULE Default 
for all except I-N 


-- 


REAL FIXED BINARY (15,0) 


-":. . ■. : : ■ bin ... ■ u 


KF.:Af. Kl OAT DECIMAL (14) 


REAL 


REAL FIXED BINARY (15,0) 


REAL FLOAT DECIMAL (14) 


REAL FLOAT DECIMAL (14) 


FIXED 


REAL FIXED BINARY (15,0) 


REAL FIXED DECIMAL (5,0) 


REAL FIXED DECIMAL (5,0) 


FLOAT 


REAL FLOAT BINARY (48) 


REAL FLOAT DECIMAL (14) 


REAL FLOAT DECIMAL (14) 


BINARY 


REAL FIXED BINARY (15,0) 


REAL FLOAT BINARY (48) 


REAL FLOAT BINARY (48) 


DECIMAL 


REAL FIXED DECIMAL (5,0) 


REAL FLOAT DECIMAL (14) 


REAL FLOAT DECIMAL (14) 


REAL (p) 


REAL FIXED BINARY (p,0) 


REAL FLOAT DECIMAL (p) 


REAL FLOAT DECIMAL (p) 


REAL (p,q) 


REAL FIXED BINARY (p,q) 


REAL FIXED DECIMAL (p,q) 


REAL FIXED DECIMAL (p,q) 


More complete c 


ombinations are not shown. 
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TABLE 5-2. SUMMARY OF DEFAULT ATTRIBUTES FOR DECLARATIONS 



An identifier with 
this attribute: 


Will necessarily acquire 
these attributes: 


And will acquire these 
attributes unless contradicted: 


ALIGNED 


variable 


None 


AREA 

with or without (size) 


variable 


ALIGNED t 

size = 150 words t 


AUTOMATIC or AUTO 


variable 
INTERNAL 


None 


BASED 


variable 

INTERNAL 


None 


BINARY or BIN 


variable 


scale FIXED o FLOAT t 
precision t 


BIT 

with or without (length) 


variable 


nonvaryingt 
UNALIGNED t 
length =1 bit t 


BUILTIN 


INTERNAL 


None 


CHARACTER or CHAR 
with or without (length) 


variable 


nonvaryingt 
UNALIGNED t 
length = 1 character t 


condition 


EXTERNAL 


None 


constant 


None 


None 


CONTROLLED or CTL 


variable 


INTERNAL 


DECIMAL or DEC 


variable 


scale FIXED op FLOAT t 
precision t 


DEFINED or DEF 


variable 
INTERNAL 


None 


dimension 


None 


None 


DIRECT 


FILE 

constant 

RECORD (open time) 

KEYED (open time) 


INPUT (open time) 


ENTRY 


variable (if parameter) 
constant (if not parameter) 


ALIGNED (if parameter) tt 
EXTERNAL (if constant) 


ENVIRONMENT or ENV 


None 


None 


EXTERNAL or EXT 


None 


STATIC (if variable) 


FILE 


variable (if parameter) 
constant (if not parameter) 


ALIGNED (if parameter) tt 
EXTERNAL (if constant) 
STREAM (open time) 
INPUT (open time) 


FIXED 


variable 

r;EALt 


base BINARY or DKCIM AS • t 
precision t 


FLOAT 


variable 
tEALt 


base BINARY or DEC WALt 
precision t 


format 


constant 
INTERNAL 


None 


INITIAL 


None 


None 


INPUT 


FILE 
constant 


STREAM (open time) 


INTERNAL or INT 


None 


AUTOMATIC (if variable) 


KEYED 


FILE 

constant 

RECORD (open time) 


SEQUENTIAL (open time) 
INPUT (open time) 
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TABLE 5-2. SUMMARY OF DEFAULT ATTRIBUTES FOR DECLARATIONS (Cont'd) 



An identifier with 
this attribute: 


Will necessarily acquire 
these attributes: 


And will acquire these 
attributes unless contradicted: 


LABEL 


INTERNAL (if constant) 


variable 

ALIGNED (if variable) tt 

INTERNAL (if variable) 


LIKE 


None 


None 


member 


None 


None 


nonvarying 


None 


None 


OFFSET 


variable 


ALIGNED t 


OUTPUT 


FILE 
constant 


STREAM (open time) 


parameter 


variable 
INTERNAL 


None 


PICTURE or PIC 

with *picture-specification' 


variable 


INTERNAL 

AUTOMATIC 

UNALIGNEDt 


POINTER or PTR 


variable 


ALIGNED t 


POSITION or POS 

with or without (start-pos) 


None 


start-pos = 1 


precision 


REALt 


(15,0) for FLXED BINARY 
(48) for FLOAT BINARY 
(5,0) for FKED DECIMAL 
(14) for FLOAT DECIMAL 


PRINT 


FILE 

constant 

STREAM (open time) 

OUTPUT (open time) 


None 


REAL 


variable 


scale FIXED or FLOATt 
base BINARY or DECIMAL t 
precision t 


RECORD 


FILE 
constant 


SEQUENTIAL (open time) 
INPUT (open time) 


RETURNS 


ENTRY tt 


None 


SEQUENTIAL or SEQL 


FILE 

constant 

RECORD (open time) 


INPUT (open time) 


STATIC 


variable 


INTERNAL 


STREAM 


FILE 
constant 


INPUT (open time) 


structure 


variable 


INTERNAL 
AUTOMATIC 


UNALIGNED 


variable 


None 


UPDATE 


FILE 

constant 

RECORD (open time) 


None 


variable 


None 


INTERNAL 
AUTOMATIC 


VARYING 


None 


None 


Also effective for any parameter descriptor or returns descriptor. 




Also effective for any parameter descriptor. 
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REFERENCES 



A reference is the appearance of an identifier in any context 
other than one that represents an explicit declaration of the 
identifier. This section summarizes the various types of 
references and describes how they are interpreted during 
program execution. The descriptions of statements and 
their components given in section 12 indicate precisely what 
must be represented by references. 



DECLARATION APPLICABLE 
TO A REFERENCE 

The identifier in a reference has an applicable declaration 
that is either in the same block as the reference or in a 
containing block. A reference to an identifier that is 
declared in the same block as the reference is called a local 
reference. A reference to an identifier that is declared in a 
containing block is called a nonlocal reference. Examples of 
local and nonlocal references are shown in figure 6-1. 



P: 
PROCl 

DCL a fixeo decimal* 
L: 

A*5I /*LOCAL REFERENCE*/ 

B * 

begin; 

a = 7! /"nonlocal reference*/ 



GOTO Bl 



GOTO l; 
END b; 



GOTO LI 



GOTO Bl 
END PI 



/•NONLOCAL REFERENCE*/ 



/•NONLOCAL REFERENCE*/ 



/•LOCAL REFERENCE*/ 



/•LOCAL REFERENCE*/ 



Figure 6-1. Local/Nonlocal References 



When a reference is encountered during program execution, 
the first block examined for the declaration of the identifier 
is the block containing the reference. If the declaration is 
not found in that block, the immediate containing block is 
examined. Each containing block is examined until the 
declaration is found. The first declaration found by this 
process is the applicable declaration. References and 
applicable declarations are illustrated in figure 6-2. 





CALC: 
PROCI 

DCL X FIXED! 

• 






• 

CALL P(X)l 

• 
• 






• 

p: 

PROC(A)l 

DCL (AtB.P) FIXED! 

• 






• 

e * a ♦ p * xi 

ENO PI 
END CALCI 




The declaration applicable to both references to X is the one 
established in block CALC. Entry constant P is declared in 
block CALC, and the arithmetic variable P is declared in the 
inner block; consequently, the reference to P in the assign- 
ment statement refers to the arithmetic variable and not to 


the entry name. 





Figure 6-2. References and Applicable Declarations 

GENERATION OR VALUE ACCESSED 
BY A REFERENCE 

During the execution of a PL/I program, an identifier can be 
associated with several generations or values at the same 
time. This can occur under the following circumstances: 

• Multiple generations are allocated for a controlled 
variable. 

• Multiple on-unit activations are contained in the 
dynamic stack. This results in multiple values being 
associated with some condition builtin functions. 

• Multiple activations of the same block are contained in 
the dynamic stack. This results in multiple generations 
being associated with each automatic variable, defined 
variable, and parameter variable declared in the block; 
and multiple values being associated with each label 
constant, entry constant, and format constant declared 
in the block. 

When the program evaluates a reference to an identifier 
associated with multiple generations or values, the system 
must determine which generation or value to use. The 
appropriate generation or value is selected as follows: 

• A reference to a controlled variable always accesses 
the top generation in the stack of generations for the 
variable. This is the most recently allocated generation 
that has not been freed. 
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• A reference to a condition builtin function always 
accesses the most recently established value still 
available for that builtin function. If the most recent 
on-unit activation in the dynamic stack does not have a 
value for the builtin function, a value is obtained from a 
dynamic predecessor of that on-unit activation. 

• A local reference to a variable or named constant 
accesses the value associated with the current block 
activation when multiple activations of the same block 
exist in the dynamic stack; a nonlocal reference 
accesses the value associated with an activation that is 
part of the environment of the current block activation. 

As described in section 2, Dynamic Program Structure, the 
environment of an activation of an internal block is a set of 
block activations; this set consists of precisely one activa- 
tion of each containing block. The environment is used to 
evaluate nonlocal references of the following types: 

• Automatic variable - The appropriate generation is 
selected. 

• Defined variable - The appropriate generation of the 
defined variable is selected. The host reference named 
in the DEFINED attribute is evaluated according to its 
own storage type, which may or may not involve the 
environment. 

• Parameter variable - The appropriate generation of 
the parameter is selected. The generation associated 
with the parameter was established when the procedure 
was invoked. 

• Label constant - The block activation that contains 
the label value is selected. The referenced block 
activation is established when a label constant is 
referenced by a GOTO statement, assigned to a label 
variable, or passed as an argument; that is, the label 
value includes both the referenced statement and the 
selected block activation. Nonlocal reference to a label 
constant is illustrated in figure 6-3. 



CALL PUM 

PKOC(A) RECURSIVE; 
DECLARE A FIXEOI 
DECLARE LV STATIC LABEL; 
IF A=5 THEN ON CONO(BLK) LV=LC; 
IF A=7 THEN SIGNAL COND(BLK); 
IF A*12 ThEN CALL P(A*1M 

goto lv; 



LC! 



put skip edit(*a=*,a) 
stop; 
end p; 



<A,F<3)H 



The environment of the on-unit is established when the 
ON statement is executed; therefore, the environment of 
the on-unit is the activation of P in which A has the 
value 5. (The dynamic predecessor of the on-unit acti- 
vation is the activation of P in which A has the value 7.) 
This example prints A=5; the GOTO causes the termina- 
tion of seven activations of P. 



Figure 6-3. Nonlocal Reference to a Label Constant 

Entry constant - The environment associated with the 
entry constant is selected. This environment is estab- 
lished when an entry constant is referenced by a CALL 
statement or function reference, or when it is passed as 
an argument in a procedure invocation; it is then used 
by activations resulting from invocations of that entry. 



• . . - i ■ ■-..--- - - -.-■....-.■.. , ■. 

stunts ; c; not permitted. 

DATA REFERENCE 

A data reference is used for one of three purposes. It can be 
a value reference, a target reference, or a storage control 
reference. A value reference is written for the purpose of 
obtaining a value. A target reference is written for the 
purpose of assigning a value. A storage control reference is 
written for the purpose of allocating or freeing storage. 

A data reference can be written in one of four forms: 
simple, subscripted, structure-qualified, or locator-qualified. 
Each form is described in the following paragraphs. 

SIMPLE REFERENCE 

A simple reference is a reference to a variable or a named 
constant. Simple reference syntax, which consists only of an 
identifier, is shown in figure 6-4. 



identifier 



Figure 6-4. Simple Reference Syntax 

A simple reference to an array or structure is a reference to 
the entire array or structure. 

SUBSCRIPTED REFERENCE 

A subscripted reference is a reference to one or more 
elements of an array. Subscripted reference syntax is shown 
in figure 6-5. 



identifier(subscript , , , ) 

where subscript is an 
expression or an asterisk (*) 



Figure 6-5. Subscripted Reference Syntax 

The number of subscripts must equal the number of 
dimensions declared for the array. The number of dimen- 
sions includes inherited dimensions when the array is a 
member of an array of structures. 

A subscript can be either an expression or an asterisk. A 
subscripted reference with no asterisk subscripts is a scalar 
reference; it references a single element. A subscripted 
reference with one or more asterisk subscripts is an array 
reference; it references a cross section of the array. A 
cross section is an array of lower dimensionality. For 
example, it is possible to reference a one- or two- 
dimensional cross section of a three-dimensional array. A 
cross section is formed by specifying one or more subscripts 
uniquely (as expressions) and utilizing all elements that have 
those subscripts. The dimensionality of a cross section is 
the number of asterisk subscripts. Other subsets of an array 
(for example, a diagonal, or a 3x3 piece of a 5x5 array) can 
be referenced as described under the DEFINED attribute in 
section 4, Attributes. 

An asterisk Cs?n be us«d us h siib^cripl only in the 
following contexts: 

• In an argument of a subroutine or function reference 

• In the host reference of a DEFINED attribute (sin-pip 
defining- only) 



6-2 



60388100 B 



A subscript that is an expression is evaluated and converted 
to a fixed binary integer when the reference is encountered 
during program execution. If the value is less than the lower 
bound or greater than the upper bound of the dimension, the 
SUBSCRIPTRANGE condition is raised. 

Sample subscripted references are shown in figure 6-6. 



Array A is declared as A(2,3,4) 

A( 1,2,2) references 1 element 

A{ 1 ,2 ,* ) references 4 elements 

A(1,*,3) references 3 elements 

A(*,l,l+J) references 2 elements 

A(l-1,*,*) references 1 2 elements 



Figure 6-6. Sample Subscripted References 



STRUCTURE-QUALIFIED REFERENCE 

A structure-qualified reference is one form of reference to 
a member of a structure. Structure-qualified reference 
syntax is shown in figure 6-7. 



{structure-qualifier,}. . . member-reference 

where each structure-qualifier and member-reference is 
a simple reference or a subscripted reference 



Figure 6-7. Structure-Qualified Reference Syntax 



A structure-qualified reference with one structure-qualifier 
identifies a structure and a contained member. For 
example: 



A.B 



Structure A contains member B. 



A structure-qualified reference with more than one 
structure-qualifier identifies a structure, contained sub- 
structures, and the contained member. For example: 

A.B.C Structure A contains substructure B, which 
contains member C. 

A partially qualified reference identifies a structure and a 
member of a contained substructure. For example: 

A.C Structure A contains substructure B, which 
contains member C. This is a partially 
qualified reference because substructure B 
is not specified. 

A reference to an identifier is said to be fully qualified if it 
is within the scope of a declaration for which one of the 
following is true: 

• The declared identifier is a structure member, and the 
reference includes a structure-qualifier for each of the 
containing structures. 

• The declared identifier is not a structure member. 



A reference to a structure member need not be fully 
qualified; some or all of the structure-qualifiers can be 
omitted and this is termed a partially qualified reference. 
Partially qualified references can be used whenever no 
ambiguity results. Fully qualified references eliminate any 
possibility of ambiguity. 

A reference is resolved as follows: 

1. If the reference is a fully qualified reference to an 
identifier, it specifies that identifier. 

2. If the preceding case does not apply and if the 
reference is a partially qualified reference to exactly 
one identifier, it specifies that identifier. 

3. If neither of the preceding cases applies, the reference 
is illegal or ambiguous and cannot be used. 

If the member-reference is an array or inherits dimensions 
from a containing structure or substructure, the total 
number of subscripts in the structure-qualified reference 
must equal the total number of dimensions for the member. 
The subscripts must appear in the same order as the 
declared dimensions for the structure and its members, but 
can appear following any identifier in the reference. 

Sample structure-qualified references are shown in 
figure 6-8. 



OCL 1 A(5>. 2 e<2»2>» 3 CI 



A(I) .8(2. J) .C 
A<It2,j>.6.C 
A.6.CU.2.J) 
A(I).b(2).C(j> 



A(4,I,J).C 
A(4> .CtltJ) 
B(4tI»J>.C 

Bdtll.CIJ) 



DCL P<3,3> 
DCL 1 A, 2 

DCL 1 8. 2 



8iT(2i ; 

P, 3 G FIXECI 
P. 3 G POINTER* 



Fully qualified reference 
to C; references are 
equivalent. 



Equivalent partially qual- 
ified references to C. 



P has three declarations 
and Q has two. Any ref- 
erence to Q or P.Q is 
ambiguous because it is 
not sufficiently qualified 
to identify one structure 
member uniquely. A ref- 
erence to P, with or with- 
out subscripts, is consid- 
ered an unambiguous 
reference to the array, 
while A.P or B.P would 
identify a structure mem- 
ber unambiguously. The 
presence or absence of 
arguments or subscripts 
in a reference is not sig- 
nificant for purposes of 
resolving ambiguity of 
reference. 



Figure 6-8. Sample Structure-Qualified References 



LOCATOR-QUALIFIED REFERENCE 

A locator-qualified reference is one form of reference to a 
based variable. Locator-qualified reference syntax is shown 
in figure 6-9. 
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locator-reference -> based-reference 

where locator-reference is a simple reference, a subscripted 
reference, a structure-qualified reference, or a locator- 
qualified reference; and based-reference is a simple reference, 
a subscripted reference, or a structure-qualified reference. 

Note: The term locator qualifier is used to refer to 
the locator-reference and the symbols - >. 



TABLE 6-1. PROCEDURE INVOCATION 



Figure 6-9. Locator-Qualified Reference Syntax 



The locator-reference must be a variable or function that 
has a locator value; the locator value, which can be offset or 
pointer, addresses a generation of storage. The based- 
reference must be a based variable or a member of a based 
structure. 

A locator-qualified reference is required only when a locator 
value cannot be supplied implicitly. A locator value is 
supplied implicitly when the locator is specified by the 
BASED attribute of the variable. An explicit locator 
qualifier overrides any implicitly supplied locator values. 

A locator-qualified reference is not permitted for the 
following: 

• A based variable named for allocation in an ALLOCATE 
or LOCATE statement 

• An identifier named in the REFER option of an extent 
expression 

Examples of locator-qualified references are shown in 
figure 6-10. 



P->B 

P<I»J>->6 
P->8(1.X) 
A.P->Q->B 



Illustrates the use of a locator- 
qualified reference as a locator 
qualifier. 



Figure 6-10. Sample Locator-Qualified References 



PROCEDURE REFERENCE 

A procedure is invoked at an entry point by execution of a 
CALL statement or by evaluation of a function reference. 
When the procedure is invoked, the procedure block is 
activated and control is transferred to the statement 
immediately following the PROCEDURE or ENTRY 
statement. If the procedure activation terminates normally, 
control returns to the point of invocation. 

With the exception of the primary entry point of the main 
procedure, each entry point can have its own set of 
parameters. The parameters are denoted by a parameter 
list included in the PROCEDURE or ENTRY statement. 
Each parameter is a variable that is declared in the 
procedure block. External entry points must be declared by 
DECLARE statement in the calling block; attributes for all 
external identifiers must be identical in all external pro- 
cedures that declare the identifiers. Rules relating to 
procedure invocation are summarized in table 6-1. 



Method of 
Invocation 


Entry Point 
Characteristics 


Normal 
Termination 


CALL 
statement 

Function 
reference 

Operating 
system 
control 
statement 


Parameters are 
optional; RETURNS 
is not allowed. 

Parameters are 
optional; RETURNS 
is required. 

OPTIONS(MAIN) re- 
quired; parameters 
and RETURNS are 
not allowed. 


RETURN statement 
without return- 
value or END 
statement 

RETURN (return- 
value) 

RETURN statement 
without return- 
value or END 
statement. 



FUNCTION REFERENCE 

A function reference is a reference to an entry 
Function reference syntax is shown in figure 6-11. 



point. 



simple-reference ( [argument , , , ] ) 



Figure 6-11. Function Reference Syntax 



In a function reference, the simple-reference must identify 
an item declared with the ENTRY and RETURNS attributes. 
The number of arguments must equal the number of 
parameters declared for the invoked entry point. If the 
entry point has no parameters, the reference must have a 
null argument list of the form ( ). 

Any reference to a function entry name followed by a 
parenthesized argument list, including a null argument list, 
is a function reference; that is, a reference to the value 
returned when the function is invoked. Any reference to a 
function entry name without a following parenthesized 
argument list is a reference to an entry value; it does not 
cause the procedure to be invoked. 

Examples of function references are shown in figure 6-12. 



DCL X area; 

DCL A ENTRY () RETURNS (AREA) ; 

DCL C ENTRY(FIXED.BIT<2>) RETURNS (FLOAT ) ; 



X = A < ) I 

/•FUNCTION REFERENCE 
Z * C(I»1»*10+E> ; 
/•FUNCTION REFERENCE 



WITH AREA VALUE'/ 



WITH FLOAT VALUE*/ 



Figure 6-12. Sample Function References 



PARAMETER AND RETURNS DESCRIPTORS 

An entry point denoted by a PROCEDURE or ENTRY 
statement is declared explicitly by usage as a named 
constant with the ENTRY attribute, and with the RETURNS 
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attribute when one is included in the statement. If a 
parameter list is specified for the entry point, the entry 
constant declaration is completed with parameter descrip- 
tors taken from the declarations of each of the parameter 
variables. 

Parameter descriptors enable the compiler to properly 
evaluate arguments of function references and CALL state- 
ments. A returns descriptor specifies the attributes of the 
value that is to be returned to the point of invocation. 

ARGUMENTS AND PARAMETERS 

An argument is an expression that is specified in a function 
reference or CALL statement. A parameter is a variable 
that is included in a parameter list of a PROCEDURE or 
ENTRY statement. 

When an entry point is invoked by a function reference or 
CALL statement that has an argument list, each argument is 
passed to the corresponding parameter declared for the 
invoked entry point. The first argument is passed to the 
first parameter, the second argument to the second param- 
eter, and so forth. 

Arguments and parameters must meet the following 
requirements: 

• The number of arguments must equal the number of 
parameters. 

• Aggregate type of an argument must be the same as 
that of the corresponding parameter. 

• Data type of an argument must be the same as or one 
that can be converted to the data type of the 
corresponding parameter. 

• .-- aggregate ■,--■.■ ■ a - ■: ment • ■■-.■: ncct : c 

The following types of data cannot be passed as arguments: 
at constants 
Builtin function names (builtin function results can be 



• Programmer-named conditions 

• \ DiiFINKD variable 0,: ! is an iSUH-ilpfinpd array or a 
cross section of such an arriiy " 

Argument Passing by Reference 
and by Value 

Each argument is passed either by reference or by value. 
The differences between the two types are as follows: 

Argument passed by reference 

The parameter generation is the generation of the 
argument variable, and therefore describes the 
same storage. If a value is assigned to the 
parameter, the value of the original argument is 
changed. 

Argument passed by value 

A dummy argument is allocated and a generation 
created for itj the parameter generation is the 
generation of the dummy argument. If a value is 
assigned to the parameter, the value of the original 
argument is not changed. 



An argument is passed by reference if it satisfies all of the 
following rules: 

• The argument must be a variable reference. The 
variable reference can be subscripted, structure quali- 
fied, or locator qualified; it cannot be an expression 
containing, operators. 

• Data conversion must not be required. Each scalar item 
of the argument must have the same data type and 
alignment as the corresponding scalar item of the 
parameter. The following need not match: scope type, 
storage type, file description attributes, INITIAL attri- 
bute, OFFSET attribute area reference, ENTRY param- 
eter descriptors, returns descriptor, or member names 
of structures. 

• For each extent expression (that is, nonasterisk extent) 
in the declaration of the parameter, the argument must 
have a corresponding extent expression. The extent 
expression for the argumen - . nusl lee itegei 
(optionally signed if it represents an upper bound or 
lower bound of an array dimension); must be equal to 
the extent expression of the parameter; and must not 
contain a REFER option. 

• If the argument is an aggregate, the aggregate argu- 
ment and parameter must have identical aggregate 
type, data type, and alignment. 

• The argument must not be contained in an iSUB-defined 
array. 

An argument that cannot be passed by reference is passed by 
value. Enclosing a scalar argument in parentheses forces 
the argument to be passed by value. 

Examples of argument passing by reference and by value are 
shown in figure 6-13. 



Conversion of Arguments 

If the data types or alignments of an argument and the 
corresponding parameter do not match, the argument is 
converted to the data type and alignment of the parameter. 
Conversion is performed before the procedure is invoked, 
and the converted value is passed as a dummy argument. It 
is an error if the argument cannot be converted. Aggregate 
arguments that require such conversion cannot be passed. 

The conversion rules used for passing dummy arguments are 
the same as those used for assignment. Conversions are 
described in section 7, Data Manipulation. 

If an argument is a pointer variable and the corresponding 
parameter is an offset variable, the area of the offset must 
be known in the calling block and the generation identified 
must be in that area. 



Storage Associated with a Parameter 

An argument passed by reference shares its generation of 
storage with the parameter. The two variables share the 
generation for the duration of the procedure activation. 
Either variable can be used to access and assign values to 
the generation. 

An argument passed by value has a dummy argument created 
by the compiler. The dummy argument has a unique 
generation of storage allocated for its value or converted 
value at compilation time. That generation is associated 
with the parameter for the duration of the procedure 
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DCL(W.X«Y> FIXfcC bin; 

DCL F ENTRY(F1XEC BIN. FIXED BIN) RETURNS(FIXEO BIN)* 

Y=F<X.W>; /«PASS BY REFERENCE*/ 

Y=F(3,61)I /*PASS 8Y VALUE*/ 

Y=F(S,X)I /'FIRST ARGUMENT IS PASStO BY VALUE*/ 

/•SECOND ARGUMENT IS PASSED BY REFERENCE*/ 



p: proc<x)» 

OCL LVAR LABEL! /"LABEL 

Lt RETURN J /'LABEL 

OCL FL ENTRY (LABEL) J 

CALL FL(X)« /"PASS BY REFERENCE*/ 

CALL FL(Y>* /"PASS BY VALUE*/ 
END Pt 



VARIABLE*/ 
CONSTANT*/ 



DECLARE (X*Y) 
OECLAKE (FtG) 
Y»F(XM 
Y=F <G(X)) I 



OAR (10)? 

ENTRY (ChAR(*)) RETURNS (CHAR ( 10) ) t 
/♦PASS BY REFERENCE*/ 
/•PASS 6(X) TO F BY VALUE*/ 



Y*F(COPY(X.2))l 



/•PASS COPY (X, 2) TO F BY VALUE*/ 



DECLARE (X.Y»2) F IXEC BIN! 



DECLARE F 

Z=F(X>» 

Z=F(X*YH 

Z=F(»XH 

Z=F(-XM 

Z=F ((X))» 



OECLARE X(8> 
DECLARE F 
Z=F(X(3)U 
Z=F(X(A-2))I 



EMRY(FUED BIN) RETURNS(F IXEC BIN) » 
/•PASS BY REFERENCE*/ 
/•PASS BY VALUE*/ 
/•PASS BY VALUE*/ 
/•PASS BY VALUE*/ 
/•PASS BY VALUE*/ 



CHAR (10); 

ENTRY (CHAR ( 10) ) RETURNS (CHAR ( 10) ) I 

/•PASS BY REFERENCE*/ 

/•PASS BY REFERENCE*/ 



DCL B(5) 
DCL P 
DCL Q 
DCL F 



fixed bin based; 
pointer; 

entry(fixed bin) 
entry(fixeo bin) 



returns(pointer); 

RETURNS (FIXED bIN>» 



Z«F(P->B(3))I /"PASS 
ZaF(Q(2)->B«A*l)); /*PASS 



BY REFERENCE*/ 
B(A*1) TO F BY 



REFERENCE*/ 



DCL A(2«3»4> FIXED eiM 

OCL 0(2*4) FIXEO BIN DEFINED (A(*. 1.*) ) ; 
OCL F ENTRY ((*♦*) FIXEO BIN); 
CALL F(A(*.2,*)>* /*PASS BY REFERENCE*/ 
CALL F(0)J /«PASS BY REFERENCE*/ 



OECLARE A (8) CHAR (20) I 

DECLAWE B(8) CHAR(20> VARYING* 

DECLARE C CHAR (20) I 

DECLARE P ENTRY (CHAR (•>>» 

CALL P(A(1)>» /*PASS BY REFERENCE*/ 

CALL P(fi(l)>; /*PASS BY VALUE*/ 



DCL C CHARdOM 

OCL P ENTRY (CHAR (20) M 

OCL ENTRY (CHAR (*>); 

CALL P(C)» /«PASS BY VALUE*/ 

CALL 0(C)! /*PASS BY REFERENCE*/ 



A literal constant or named 
constant is passed by value. 



A function reference or a builtin 
function reference is passed by 
value: the function or builtin func- 
tion is invoked, and the value re- 
turned by the function or builtin 
function is passed as a dummy 
argument. 

An expression that is not simply 
a variable reference is passed by 
value. Note that a variable 
reference can contain expressions 
in subscripts or locator qualifiers; 
this does not force pass-by-value. 



An array or array cross section 
can be passed by reference if it 
satisfies the rules for pass-by- 
reference. 



If data conversion is required, 
the argument is passed by 
value. 



If the parameter has an AREA, 
BIT, CHARACTER, or dimension 
attribute, and the corresponding 
argument has a different extent, 
the argument is passed by value. 
(If the parameter has an asterisk 
extent, the argument can be 
passed by reference, regardless of 
its extent, unless pass-by-value is 
forced for some other reason.) 



Figure 6-13. Argument Passing by Reference and by Value 
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activation; it is freed automatically when control returns to 
the point of invocation. The original argument is not 
affected by any changes made to the dummy argument; 
conversely, the dummy argument is not affected by any 
changes made to the value of the original argument, 
including the freeing of the generation of the original 
argument. 

A parameter can never be explicitly allocated. A generation 
can be associated with a parameter only when arguments are 
passed to it during procedure invocations. Parameters other 
than those named for the entry point used for the current 
invocation have undefined values and should not be accessed 
during that invocation; they are effectively in an unallo- 
cated state. 



Extents of a Parameter 

The extents of a parameter generation are those of the 
argument or converted argument. When an asterisk extent 
is used in a declaration of a parameter, the size, length, or 
bounds of the parameter are replaced by the corresponding 
size, length, or bounds of the argument or converted 
argument. 

In the following example, the length of the string repre- 
sented by P is the length of the argument associated 
with P each time the procedure is invoked. 



This method can be used only when calling a FORTRAN 
subroutine with the PL/I CALL statement. 

The name of the FORTRAN routine must be explicitly 
declared in the PL/I routine with the ENTRY attribute. 
References to the FORTRAN subroutine are written in 
the same manner as references to PL/I procedures. 

A common storage area must be created in the PL/I 
routine and in the FORTRAN subprogram. A common 
storage area in PL/I is a structure with the STATIC and 
EXTERNAL attributes. A common storage area in 
FORTRAN is a named common block. 

The name of the PL/I structure must correspond to the 
name of the FORTRAN common block. The structure can 
contain scalars and arrays, but not substructures. The 
scalars and arrays in the structure must correspond to the 
variables and arrays in the FORTRAN common block. 

An example of the use of common storage areas to pass 
parameters is shown in figure 6-14. The FORTRAN 
routine is declared with the ENTRY attribute in the PL/I 
program. The structure MYCMBLK is declared STATIC 
EXTERNAL, and corresponds to the common block 
MYCMBLK in the FORTRAN subroutine. The structure 
members are initialized in the PL/I routine and printed. 
Then the FORTRAN routine is called to modify the value 
of the structure members. Upon returning from the 
FORTRAN subprogram, the new values of the structure 
members are printed. 



I: PROC (P); 

DCL P CHAR(*); /* PARAMETER */ 



CALLING FORTRAN SUBPROGRAMS 

PL/I programs can reference FORTRAN functions and 
subroutines. 

There are two methods of passing parameters between 
PL/I and FORTRAN routines: using common storage 
areas, and using argument lists. 

Using common storage areas is the only method of calling 
FORTRAN routines directly from PL/I. This method 
involves creating a PL/I structure that can be accessed in 
the FORTRAN routine as a named common block. 

The other method of passing parameters involves using an 
argument list. A PL/I program cannot directly call a 
FORTRAN subprogram if an argument list is used to pass 
parameters. Instead, the user must write a COMPASS 
interface routine to modify the argument list generated 
by PL/I. 

Not all types of PL/I variables can be passed to 
FORTRAN subprograms. PL/I provides more data types 
than FORTRAN; therefore, only those data types that are 
allowed by FORTRAN can be passed as parameters. 

Furthermore, arrays are stored differently in PL/I than in 
FORTRAN, so the programmer must compensate for the 
difference in the logic of the program. 



Common Storage Areas 

One method of passing parameters between PL/I and 
FORTRAN routines is by using common storage areas. 



Arguments Lists 

The other method of passing parameters between PL/I and 
FORTRAN routines is by using argument lists. This 
method can be used for calling both FORTRAN functions 
and subroutines. 



This method requires the programmer to supply a 
COMPASS interface. The name of the interface must be 
explicitly declared in the PL/I routine with the ENTRY 
attribute. References to the COMPASS routine are 
written in the same manner as references to PL/I 
functions and procedures. 

The COMPASS routine must modify the argument list 
generated by PL/I so that it can be used by the FORTRAN 
routine. After modifying the list, it must invoke the 
FORTRAN subprogram. 

The argument list is located by accessing register Al, 
which contains the address of the argument list. 

The FORTRAN routine expects the argument list to 
contain an address for each argument, and expects the list 
to be terminated by a word of zeros. 

However, the argument list generated by PL/I contains 
the address of a descriptor for each argument, rather than 
the address of the argument itself. The descriptor word 
contains the address of the argument in the low order 18 
bits. Additional information about the argument might be 
stored in the rest of the descriptor word. Lists generated 
by PL/I CALL statements are terminated with a negative 
zero followed by a positive zero. Lists generated by PL/I 
function references are terminated with the address of 
the descriptor of the function result followed by a positive 
zero. 

Figure 6-15 shows the format of the PL/I argument list. 
Figure 6-16 shows the format of the argument list 
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COMMON: PROCEDURE OPTIONS (MAIN) ; 

DCL FORT ENTRY; 

DCL 1 MYCMBLK STATIC EXTERNAL, 

2 X FLOAT DECIMAL, 

2 I FIXED DECIMAL(3,0), 

2 MESS(2) CHAR(IO) ALIGNED; 

X = 1.234; 

1 = 5; 

MESS(l) = 'HELLO FROM'; 

MESSf?) = ' PL/I'; 

PUT EDIT (MESS{1),MESS(2),X,I) ( SKIP , 2 ( A) ,F( 7 , 3 ) ,F ( 5 ) ) ; 

CALL FORT; 

PUT EDIT (MESS(1),MESS(2),X,I) ( SKIP , 2 ( A) ,F{ 7 , 3) ,F( 5 ) ) ; 

END COMMON; 



SUBROUTINE FORT 

COMMON /MYCMBLK/ X, I, MESS(2) 

X = X * 2.0 

I = I + 25 

MESS(2) = 8H FORTRAN 

RETURN 
END 



OUTPUT: 

HELLO FROM PL/I 
HELLO FROM FORTRAN 



1.234 5 

2.468 30 



Figure 6-14. Common Storage Area Example 



expected by the FORTRAN subprogram. The COMPASS 
interface routine must transform the argument list from 
the PL/I format to the FORTRAN format. 

The PL/I argument list contains an extra level of 
indirection compared to FORTRAN. Therefore, the 
COMPASS interface must replace the descriptor addresses 
with the addresses of the arguments themselves. The 
original PL/I argument list can be overwritten with the 
modified list. The COMPASS routine must preserve the 
contents of register A0. 

An example of a PLA reference to a FORTRAN 
'subroutine is shown in figure 6-17. The name of the 
COMPASS interface is declared with the ENTRY 
attribute. The interface reformats the argument list by 
reading each descriptor word and storing it back into the 
list over the original pointer. 

For PL/I references to FORTRAN functions, a COMPASS 
interface is always required; the common storage area 
method cannot be used. FORTRAN functions return the 
result in register X6. PL/I functions return the result in 
an address specified in the argument list. The address of 
the descriptor for the last argument is followed by the 
address of the descriptor for the function result. This 
address takes the place of the negative zero which 
precedes the terminating positive zero. 

An example of a PL/I reference to a FORTRAN function 
is shown in figure 6-18. The argument list is transformed 



as before, but the descriptor for the function result is 
read in addition to those of the other arguments. After 
the return from the FORTRAN routine, the COMPASS 
interface reads the descriptor and stores the contents of 
X6 at the specified address (X6 contains the result 
returned from FORTRAN). 



Data Type Restrictions 

PL/I provides more data types for variables than 
FORTRAN. Therefore, not all types of variables can be 
passed between PL/I and FORTRAN. Only those data 
types that are common between the two languages can be 
shared. Table 6-2 shows the PL/I data types that can be 
passed to FORTRAN subprograms, and gives the 
corresponding FORTRAN data types. 



Other restrictions are: 

PL/I strings passed to FORTRAN routines must be 
declared ALIGNED. 

CHARACTER and BIT strings longer than one word 
must be treated like a 1-dimensional array within the 
FORTRAN routine. Each group of 10 characters or 
60 bits in the PL/I string corresponds to one word of 
the FORTRAN array. The length of the FORTRAN 
array must be a multiple of 10 characters or 60 bits. 
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Register 

A1 


Address 

of argument 

list 












Descriptor Words Actual Arguments 


















Argument List 




! Address 
| of 
I I 




Value of 1 




Address of 
descriptor for I 


y 




















Address of 
descriptor for J 




j Address 
j of 

! J 




Value of J 








Address of 
descriptor for K 












\ 


J Address 

! of 
j K 




Value of K 






-0 




Low order 
18 bits 








+0 








This shows the PL/I argument list generated by the statement CALL F(I,J,K). For PL/I function 
references, the -0 in the argument list is replaced with the address of the descriptor word for the 
function result. 





Figure 6-15. Format of PL/I Argument List 



TABLE 6-2. DATA TYPE CORRESPONDENCE 



PL/I Data Type 


FORTRAN Data Type 


FLOAT DECIMAL 


REAL 


FIXED DECIMAL (q=0) 


INTEGER 


CHAR(IO) ALIGNED Nonvarying 


Hollerith 


FLOAT BINARY 


REAL 


FIXED BINARY (q=0) 


INTEGER 


BIT(l) ALIGNED 


LOGICAL 



PL/I pictured variables are nonvarying character 
strings and are treated like FORTRAN character data. 

PL/I AREA, POINTER, OFFSET, FILE, ENTRY, or 
LABEL data and FORTRAN COMPLEX or DOUBLE 
PRECISION data cannot be shared. 



Array Storage Differences 

Arrays are stored differently in PL/I than in FORTRAN, 
so the programmer must compensate for the differences 
in the logic of the program. 

In general, PL/I arrays are stored in row order, whereas 
FORTRAN arrays are stored in column order. Thus, the 
programmer should reverse the order of the subscripts in 
the FORTRAN routine. 



PL/I strings of varying length can be passed to 
FORTRAN routines, but the FORTRAN routine must 
not alter the current length of the string. Varying 
length strings cannot be passed through common 
storage areas. Arrays of varying strings must not be 
passed to FORTRAN subprograms. 



For example, the array element referenced as 
ARRAY(2,3) in the PL/I routine, is referenced as 
ARRAY<3,2) in the FORTRAN routine. 

There are two methods of passing arrays using argument 
lists: by specifying the unsubscripted array name in the 
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Actual Arguments 




Register 
A1 


Address 

of argument 

list 
















Value of 1 








Argument List 




Address 
of 
1 


y 






- 








Address 
of 
J 




Value of J 






Address 
of 
K 








\ 


Value of IC 









i by the FORTRAN subrouti 
tine is SUBROUTINE F(U,K 






1 
1 


"his shows the argument list e 
: . The first statement of the 


xpectec 
subrou 


ne 
). 



Figure 6-16. Format of FORTRAN Argument List 



argument list, and by specifying the subscripted array 
name. 

If the unsubscripted array name is specified, array 
element zero is associated with the first element of the 
FORTRAN array. This occurs even if the PL/I array does 
not have its origin at zero. For example, if a PL/I array is 
declared without explicitly specifying the array bounds, 
the first subscript defaults to 1. If this array is passed to 
FORTRAN, array element zero is associated with the first 
element of the FORTRAN array, which results in a 
reference outside of the array bounds. To avoid this 
problem, the programmer can declare all PL/I arrays to 
have origins at zero if they are to be passed to FORTRAN 
in this way. 

If a subscripted array name appears in the argument list, 
the specified element of the PL/I array is associated with 
the first element of the FORTRAN array; all subsequent 
elements correspond. 

To pass arrays through common storage areas, the 
programmer must simply reverse the subscripts as 
explained previously. 



Arrays with elements longer than one word should not be 
passed to FORTRAN subprograms. If this is done, the 
programmer must develop an algorithm for computing 
proper subscripts in the FORTRAN routine. 

Arrays of variable length strings must not be passed to 
FORTRAN subprograms. 



Additional Considerations 

Input and output operations should be restricted to PL/I 
routines. 

PL/I allows recursive procedures, but FORTRAN does 
not. FORTRAN routines that are called recursively can 
result in infinite loops. 

PL/I snap output normally contains a traceback of all 
active procedures and on-units; however, FORTRAN and 
COMPASS routines called from PL/I will not appear in the 
snap output. 
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ARGLIST: PROCEDURE OPTIONS (MAIN) ; 

DCL COMPINT ENTRY (FLOAT DEC, FIXED DEC, CHAR(IO) ALIGNED); 

DCL A FLOAT DECIMAL; 

DCL B FIXED DECIMAL; 

DCL C(2) CHAR(IO) ALIGNED; 

A = 1.234; 

B = 5; 

C(l) = 'HELLO FROM' ; 

C(2) = ' PL/I"; 

PUT EDIT (C(1),C(2),A,B) ( SKIP ,2( A) ,F( 7 ,3 ) ,F( 3 ) ) ; 
CALL COMPINT ( A, B, C(2) ); 

PUT EDIT (C(1),C(2),A,B) (SKIP ,2( A) ,F( 7 , 3) ,F( 3 ) ) ; 
END ARGLIST; 



SUBROUTINE FORT ( A, B, C ) 

INTEGER B,C 

A = A * 2 
B = B + 25 
X = SH FORTRAN 

RETURN 
END 



1DENT COMPINT 
ENTRY COMPINT 



COMPINT BSS 1 

SB6 

SB7 3 SET B7 TO NUMBER OF ARGUMENTS 

LOOP SA2 A1+B6 READ ADDR OF DESCRIPTOR INTO X2 

SA3 X2 READ ADDR OF ARGUMENT INTO X3 

SX6 X3 WRITE ADDR OF ARGUMENT IN ARG LIST 

SA6 A2 

SB6 B6+1 

GT 87,86, LOOP LOOP BACK IF MORE ARGUMENTS 

RJ =XFORT 

EO COMPINT 

END 



OUTPUT: 



HELLO FROM PL/I 1.234 5 
HELLO FROM FORTRAN 2.468 30 



Figure 6-17. Argument List Example 
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FORTFUh 


: PROCEDURE OPTIONS (MAIN ) ; 






DCL AVG 


ENTRY((*)FLOAT DEC, FIXED DEC) RETURNS( FLOAT DEC); 






DCL ARY1(0:2) FLOAT DEC INIT( 12 . 345 , -98. 765 , 246 . 357 ) ; 






DCL ARY2(0:4) FLOAT DEC IMIT( 1 .2,-3. 4,5.6,-7 .8,9.0) ; 






DCL ARY3(0:9) FLOAT DEC INIT ( . 1 , . 2 , . 3 , . 4 , . 5 , .6 , . 7 , .8, . 9 , .0 ) ; 






PUT SKIP EDIT( 'AVG 


OF ARY1 IS', AVG(ARY1,3)) (A,F(9,4)); 






PUT SKIP EDIT( 'AVG 


OF ARY2 IS', AVG(ARY2,5)) (A,F(9,4)); 






PUT SKIP EDIT( 'AVG 


OF ARY3 IS', AVG(ARY3,10)) (A,F(9,4)); 


END FORTFUN; 






C 
C 




FUNCTION 


AVERAGE (ARRAY.IDIM) 




DIMENSION 


ARRAYUDIM] 






SUM = 










DO 100 I 


= 1,IDIM 








SUM = 


SUM + ARRAY(I) 


100 




CONTINUE 






C 




AVERAGE = 


SUM/IDIM 






RETURN 










END 










IDENT 
ENTRY 


AVG 
AVG 




AVG 




BSS 


1 








SB6 











SB7 


3 


SET B7 TO NUMBER OF ARGUMENTS + 1 


LOOP 




SA2 


A1+B6 


READ ADDR OF DESCRIPTOR INTO X2 






SA3 


X2 


READ ADDR OF ARGUMENT INTO X3 






SX6 


X3 


WRITE ADDR OF ARGUMENT IN ARG LIST 






SAfi- 


A2 








SB6 


B6 + 1 








GT 


B7,B6,L0OP 


LOOP BACK IF MORE ARGUMENTS 






SA6 


RESULT 


SAVE ADDR FOR RESULT 






RJ 


=XAVERAGE 








SA1 


RESULT 


READ UP ADDR FOR STORING RESULT 






SA6 


XI 


STORE RESULT IN SPECIFIED ADDR 






EQ 


AVG 




RESULT 


BSS 


1 








END 






OUTPUT: 








AVG 


OF ARY1 IS 


53.3123 




AVG 


OF 


" ARY2 IS 


0.9200 




AVG 


OF 


' ARY3 IS 


0.4500 





Figure 6-18. FORTRAN Function Example 
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BUILTIN FUNCTION OR 
PSEUDOVARIABLE REFERENCE 

A builtin function reference is a reference to a builtin 
function. A pseudovariable reference is a reference to a 
pseudovariable; a pseudovariable is a counterpart of a builtin 
function and is used as the target of an assignment 
operation. Builtin function and pseudovariable reference 
syntax is shown in figure 6-19 . 



simple-reference [([argument ,,,])] 



Figure 6-19. Builtin Function and Pseudovariable 
Reference Syntax 

In a builtin function reference, the simple-reference must be 
the name of one of the system-supplied builtin functions. 



The number of arguments and the attributes of the argu- 
ments must be as described in section 11, Builtin Functions. 
If the builtin function does not require any arguments, the 
reference can have a null argument list of the form ( ) or the 
parentheses can be omitted. Any reference to a builtin 
function causes the builtin function to be invoked. A builtin 
function cannot be referenced as an entry value. 

In a pseudovariable reference, the simple-reference must be 
the name of one of the system-supplied pseudovariables. 
The number of arguments and the attributes of the argu- 
ments must be as described in section 11. If the pseudo- 
variable does not require any arguments, the reference can 
have a null argument list of the form ( ) or the parentheses 
can be omitted. The name of each pseudovariable is the 
same as the name of the corresponding builtin function. It is 
recognized as a pseudovariable reference by the context in 
which it appears. 
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DATA MANIPULATION 



This section describes the various types of PL/I expressions 
that can be written for manipulating data. Other sections of 
this manual describe where expressions can be used in the 
language. An expression can be a primitive, prefix, or infix 
expression. An expression that contains subexpressions is a 
combination of these simple expressions. Evaluation of an 
expression proceeds in a specific way, according to the rules 
given in this section. 

Arithmetic, string, and comparison operations are performed 
as necessary in the evaluation of an expression. The 
operator in a simple expression establishes whether the 
operation is to be arithmetic, string, or comparison. Every 
operator in an expression is either a prefix or infix operator. 
For each type of operation, this section describes the prefix 
and infix operators that can be used and the result of the 
operation. The result of an expression evaluation can be 
used as an operand in another expression. 

PL/I performs conversion of operands as necessary in any 
arithmetic, string, or comparison operation. Since the 
operator establishes the type of operation, the operator can 
force conversion of an operand to a specific computational 
type, such as arithmetic, bit, or character. In an infix 
operation, conflict in the data types of the operands can 
force further conversion, such as from FIXED DECIMAL to 
FLOAT DECIMAL. In an arithmetic, string, or comparison 
operation, any necessary conversions occur before the 
arithmetic, string, or comparison operation is performed. 

Assignment involves a source value and a target. The source 
value is the result of an expression evaluation. Conversion 
is necessary if the source value has a different data type 
than the target. If the data type of the source value 
matches the data type of the target, the source value is 
assigned to the target without conversion. 

Conversion is performed for operations and during assign- 
ment. This section briefly describes other situations in 
which any necessary conversion is performed. The rules for 
each available conversion from one data type to another are 
described. 

The rules for picture-controlled conversions are described in 
this section. The picture codes available for pictured 
character and pictured numeric items are also described. 



EXPRESSIONS 

Each expression consists of operators and operands arranged 
in a meaningful way. The operators are categorized as 
arithmetic, string, or comparison operators and as prefix or 
infix operators. The complete list of operators is shown in 
table 7-1. An expression can be a single primitive, prefix, 
or infix expression. An expression can also be a combination 
of expressions. An expression used as part of a larger 
expression is called a subexpression. The syntax of 
expressions is shown in figure 7-1. 

An operand can be a literal constant, a reference, an iSUB 
reference, or an expression. An expression can be used as an 
operand in another expression. The result of the final 
expression evaluation is the result of the complete 
expression. 



TABLE 7-1. LIST OF OPERATORS 



Operator 


Type 


Prefix or 
Infix 


Meaning 


+ 
+ 

* 

/ 
** 


arithmetic 
arithmetic 
arithmetic 
arithmetic 
arithmetic 
arithmetic 
arithmetic 


prefix 

prefix 

infix 

infix 

infix 

infix 

infix 


positive 

negative 

add 

subtract 

multiply 

divide 

exponentiate 


— i 

& 

1 
II 


bit string 

bit string 

bit string 

character 
string or 
bit string 


prefix 
infix 
infix 
infix 


NOT 
AND 
OR 
concatenate 


- 1= 
< 
<= 

— 1< 
> 
>= 

— 1> 


comparison 
comparison 
comparison 
comparison 

comparison 
comparison 
comparison 

comparison 


infix 
infix 
infix 
infix 

infix 
infix 
infix 

infix 


equal 

not equal 

less than 

less than or 
equal 

not less than 

greater than 

greater than or 
equal 

not greater than 



A primitive expression consists of a single operand and no 
operators. A prefix expression consists of a single operator 
and a single operand. An infix expression consists of two 
operands separated by a single operator. Examples of 
primitive, prefix, and infix expressions are shown in 
figure 7-2. 

The value of an expression is determined each time it is 
encountered during program execution. An expression yields 
a result value of a particular data type and aggregate type. 
The evaluation of each subexpression contained in the full 
expression produces a result with a particular data type. If 
the result is used as an operand in another subexpression, the 
data type and aggregate type are used as the operand type in 
that subexpression evaluation. The result of the final 
subexpression evaluation has a result type. 



PRIMITIVE EXPRESSIONS 

A primitive expression that is a variable reference has the 
data type and aggregate type of the variable. A primitive 
expression that is a function reference has the data type and 
aggregate type of the value returned by the function. If the 
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primitive expression is used as an operand in a prefix or infix 
expression, the data type and aggregate type must be 
acceptable for the prefix or infix operation. 



reference 

literal-constant 

iSUB 

+ ) 

- >expression 



/ 



expression 



expression 



< 
< = 



> 

> = 



(expression) 

where reference is a variable reference, named 
constant reference, or function reference. A 
variable reference can be simple, subscripted, 
structure-qualified, or locator-qualified. A 
named constant reference can be subscripted. 



Figure 7-1. Expression Syntax 



Primitive Expressions 


ADDTRY 


variable reference 


THG{7) 


subscripted variable reference 


ER.DATA6 


structure-qualified variable reference 


KPTR->N 


locator-qualified variable reference 


LABEL7 


named constant reference 


UTIL(R,T) 


function reference 


12.6 


arithmetic constant 


4 


integer constant 


'JK L' 


character constant 


'10'B 


bit constant 


(4)'101'B 


replicated bit constant 


2SUB 


iSUB reference 


Prefix Express 


'ons 


+ADDTRY 




-THG(7) 




■^'lO'B 




Infix Expressions 


ER.DATA6 


+ UTIL(R,T) 


ADDTRY * 


* 4 


'10'B I (4)'101'B 


KPTR->N " 


X 12.6 


-THG(7) = 


'10'B 


3 * 2SUB 





Figure 7-2. Primitive, Prefix, and Infix Expression Examples 



PREFIX EXPRESSIONS 

The data type of the expression value is determined by the 
prefix operator and the data type of the operand. In a prefix 
expression, the operator requires that the operand be of a 
certain computational type. The operand is compatible with 
the operator if the operand has the required computational 
type or can be converted to that type. 

The operand must be scalar but can be an array element or 
structure member. The operand must represent a single 
value father Mian an a^gregit!* 2 vsW. 

The steps in evaluation are as follows: 

1. The operand is evaluated. The value of the primitive 
expression is used, or an intermediate result from 
subexpression evaluation is used. 

2. The operand is converted to an intermediate value 
appropriate for the operator, if necessary. 

3. The prefix operation produces a result value. 

INFIX EXPRESSIONS 

The data type of the expression is determined by the infix 
operator and the data types of the operands. In an infix 
expression, the operator requires that the operands be of a 
certain computational type. Each operand is compatible 
with the operator if the operand has the required compu- 
tational type or can be converted to that type. 

Each operand must be scalar but can be an array clement or 
structuu- p-.tirtber. Each operand mus represent a single 
value rather than an aggregate value. 

The steps in evaluation are as follows: 

1. Both of the operands are evaluated. The value of a 
primitive expression is used, or an intermediate result 
from subexpression evaluation is used for either 
operand. 

2. Each operand is converted, if necessary, to an inter- 
mediate value appropriate for the infix operator. If the 
two operands have different data types, one or both can 
require further conversion. 

3. The infix operation produces a result value. 

ORDER OF EVALUATION 

An expression that contains more than one operator is 
evaluated in an order established by the precedence of 
operators and by the way the expression is parenthesized. 
Operator precedence determines the order of evaluation in a 
static way; operator precedence is not dynamic. If an 
operand is an expression, the expression is fully evaluated 
before being used as an operand. Paired parentheses force 
evaluation of the contained expression before the result is 
used as an operand of any operator outside the parentheses. 

Within the entire expression, and within each pair of 
parentheses, the order of evaluation depends on the priority 
of operators. Subexpressions containing operators of the 
highest priority are evaluated first, then those of the next 
highest priority, and so forth. If a subexpression or 
parenthesized subexpression contains operators of equal 
priority, the order of evaluation is usually left to right but 
can be right to left. The order of evaluation is shown in 
table 7-2. Some examples of order of evaluation are shown 
in figure 7-3. 
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TABLE 7-2. ORDER OF EVALUATION 



Order of 
Evaluation 


Operators 


Same Priority 

Order of 

Evaluation 


First 


~ i +(prefix) -(prefix) ** 


Right to left 


Second 


* / 


Left to right 


Third 


+(infix) -(infix) 


Left to right 


Fourth 


II 


Left to right 


Fifth 


= — 1= < <= — 1< > >= — 1> 


Left to right 


Sixth 


& 


Left to right 


Last 


1 


Left to right 



statement. The result of a function reference is never 
reused. The value of a variable reference is not reused if 
the compiler detects that the generation or the value could 
change during subexpression evaluation. If any compu- 
tational conditions are raised during subexpression evalua- 
tion, then reuse of subexpression values can change the final 
result only by reducing the possible number of raised 
computational conditions. 



OPERATIONS 

The evaluation of expressions can involve arithmetic, string, 
or comparison operations. The operator used in an expres- 
sion establishes what type of operation is to be performed. 
Depending on the circumstances, an operation can be a 
prefix or an infix operation. 



Expression 


Order of Evaluation 


- A ** B 


- (A ** B) 


C / - D 


C/ (- D) 


E + F / G 


E + (F / G) 


H + J I | K 


(H + J) | | K 


L = M I | N 


L = (M I I N) 


P > Q & R = S 


(P > Q) & (R = S) 


S I T & U 


S I (T & U) 



Figure 7-3. Order of Evaluation Examples 

When an operand is evaluated, the order of evaluation for 
subscripts, locator qualifiers, and function references is not 
predetermined. The program must not depend on any 
particular order of evaluation for subscripts, locator quali- 
fiers, and function references in an expression. 

For the purpose of optimization, the result from a sub- 
expression evaluation can be reused if the result has already 
been calculated during the present execution of the 



If operations require conversion of operands, any necessary 
conversions take place before the operation is performed. 
Specific conversions are described later in this section under 
Conversions. The conversions for computational operands 
are shown in table 7-3. The required intermediate type for 
each necessary operand conversion in any given operation is 
described under the particular operation. 



ARITHMETIC OPERATIONS 

Arithmetic operations can be specified with prefix or infix 
operators. The prefix operators are + (positive) and - (nega- 
tive). The infix operators are + (add), - (subtract), 
* (multiply), / (divide), and ** (exponentiate). Arithmetic 
operations can involve operands that are arithmetic, char- 
acter string, bit string, or pictured items. Operands can also 
be intermediate values that are result values from sub- 
expression evaluations. The result of the operation is always 
arithmetic with a scale FIXED or FLOAT and a base 
DECIMAL or BINARY. The result can be used as an operand 
in a subsequent operation or can be the final result of 
expression evaluation, depending on the circumstances. 
Examples of arithmetic operations are shown in figure 7-4. 



TABLE 7-3. COMPUTATIONAL CONVERSION FOR OPERATIONS 



Operand Type 


Intermediate Type 


Arithmetic 


Character 


Bit 


Arithmetic 


Arithmetic to 
arithmetic conversion 


Arithmetic to 
character conversion 


Arithmetic to 
bit conversion 


Pictured Numeric 


Interpret for 
arithmetic value 

Arithmetic to 
arithmetic conversion 


Use character value 

Character to 
character conversion 


Interpret for 
arithmetic value 

Arithmetic to 
bit conversion 


Character 


Character to 
arithmetic conversion 


Character to 
character conversion 


Character to 
bit conversion 


Pictured Character 


Use character value 

Character to 
arithmetic conversion 


Use character value 

Character to 
character conversion 


Use character value 

Character to 
bit conversion 


Bit 


Bit to arithmetic 
conversion 


Bit to character 
conversion 


Bit to bit 
conversion 
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DCL FIXDEC FIXED DECU0t3> INITU.10H 

DCL FLCtC FLOAT DEC(?) INITI.21E2H 

DCL FIXblN FIXED BIN<12»4) INIT ( 10.00B) » 

DCL FLbIN FLOAT BINU5) INIT < 1 .010E2BH 

DCL P1CNUM PICTllRE ♦ZZZV.ZZ* lNIT<1.48>i 



PUT SMP LlST(-FIXBIN) » 
/•RESULT IS -00000010. 0000B 
/•LISTING IS -2.00 



PUT SKIP 
/•RESULT 



L1ST(FLDEC ♦ 1E1) I 
IS 3.100000E*001 



PUT SMP L1ST<FIXDEC 
/•RESULT IS 



PUT SMP 
/•RESULT 



LISTCFIXDEC 
IS 



► PICNUMH 
2.580 



35) i 
38.500 



PUT SMP LISTCFLBIN / .1E0BH 
/•RESULT IS 1.01000000000000E*003B 
/•LISTING IS 1.0000E»001 



PUT SKIP L1ST(FIXDEC •• 3); 
/♦RESULT IS 1.331000000E+000 



•/ 
•/ 



•/ 



•/ 



•/ 



•/ 
•/ 



♦/ 



Figure 7-4. Arithmetic Operations Examples 



Operand Conversion 

Each operand of an arithmetic operator is converted to the 
appropriate arithmetic type, if necessary, before the opera- 
tion occurs. The operand type to which the operand value is 
converted is defined by the following rules. 



Bit String Operand 

A bit string operand requires bit to arithmetic conversion. 
The operand is converted to REAL FIXED BINARY (48,0). 
An operand of an infix operator can require further base or 
scale conversion, as described for arithmetic operands. An 
operand for a prefix operator requires no further conversion. 



Pictured Operand 

A pictured character item is treated as a character string 
operand. A pictured numeric item is interpreted for its 
arithmetic value and treated as a FIXED DECIMAL or 
FLOAT DECIMAL item, depending on the form of the 
picture. An operand of an infix operator can require further 
conversion, as described for arithmetic operands. An 
operand for a prefix operator requires no further conversion. 



Prefix Arithmetic Operation 

The result value has the mode, base, scale, and precision of 
the arithmetic operand (after conversion to arithmetic). 
The negative (-) operator causes the sign of the operand to 
be reversed. The positive (+) operator has no effect on the 
value of the operand. An example of a prefix operation is 
included in figure 7-4. 



Infix Arithmetic Operation 

The base and' scale of the result value are the common base 
and scale of the operands. The precision depends on the 
arithmetic operation performed and on the precision of the 
operands. The following symbols are used for the descrip- 
tion of the operations: 

(m,n) or (m) Actual precision of the result value 

N Maximum number of digits available for 

the result value (48 for BINARY, 14 for 
DECIMAL) 



Arithmetic Operand 

An arithmetic operand of a prefix operator requires no 
conversion. Arithmetic operands of an infix operator can 
require conversion. 



(p,q) or (p) Precision of the first operand 

(r,s) or (r) Precision of the second operand 
Examples of infix operations are included in figure 7-4. 



For an infix arithmetic operator, conversion to a common 
base and common scale is necessary if the operands (after 
conversion to arithmetic) differ in base or scale. If base 
differs, the DECIMAL operand is converted to BINARY in an 
arithmetic to arithmetic conversion. If scale differs, the 
FIXED operand is converted to FLOAT in an arithmetic to 
arithmetic conversion. For exponentiation, conversion to a 
common base and scale is not always necessary. 



Character String Operand 

A character string operand requires character to arithmetic 
conversion. The operand is converted to REAL FIXED 
DECIMAL (14,0). An operand of an infix operator can 
require further base or scale conversion, as described for 
arithmetic operands. An operand for a prefix operator 
requires no further conversion. 



Addition or Subtraction 

The second operand is added to or subtracted from the first 
operand. 

If both operands are FIXED, the precision of the result is 

(m,n) = (MIN(N,MAX(p-q,r-s)+MAX(q,s)+l), MAX(q,s)) 

The FIXEDOVERFLOW condition can be raised during fixed 
point addition or subtraction. 

If both operands are FLOAT, the precision of the result is 

(m) = (MAX(p,r)) 

The OVERFLOW or UNDERFLOW condition can be raised 
during a floating point addition or subtraction. 
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Multiplication 

The result value is the product of the two operands. 

If both operands are FIXED, the precision of the result is 

(m,n) = (MIN(N,p+r+l), q+s) 

The FIXEDOVERFLOW condition can be raised during fixed 
point multiplication. 

If both operands are FLOAT, the precision of the result is 

(m) = (MAX(p,r)) 

The OVERFLOW or UNDERFLOW condition can be raised 
during a floating point multiplication. 



Division 

The first operand is divided by the second operand. 

If both operands are FIXED, the precision of the quotient is 
the maximum available 

(m,n) = (N, N-p+q-s) 

The FIXEDOVERFLOW or ZERODIVIDE condition can be 
raised during fixed point division. 

If both operands are FLOAT, the precision of the result is 

(m) = (MAX(p,r)) 

The OVERFLOW, UNDERFLOW, or ZERODIVIDE condition 
can be raised during a floating point division. 



Exponentiation 

In exponentiation, conversion of the operands to a common 
base and scale is not always necessary. The following types 
of exponentiation can apply: 

• If the first operand (after conversion to arithmetic) is 
FIXED BINARY (p,q) and the second operand is a 
positive integer constant with a value less than or equal 
to 49/(p+l), then a FIXED to FIXED exponentiation is 
performed. If the first operand (after conversion to 
arithmetic) is FIXED DECIMAL (p,q) and the second 
operand is a positive integer constant with a value less 
than or equal to 15/(p+l), then a FIXED to FIXED 
exponentiation is performed. The base, scale and mode 
of the result are the same as those of the first operand, 
after conversion. The precision of the result, where y is 
the value of the second operand, is 

(m,n) = «p+l)*y-l, q*y) 

• The second type of exponentiation can be used if the 
first type does not apply. If the second operand 
(after conversion) is FIXED (r,s) with s equal to zero, 
the first operand is converted, as necessary, to 
FLOAT and a FLOAT to FIXED exponentiation is 
performed. The result is FLOAT with the base and 
mode of the first operand, after conversion. The 
precision of the result is 

(m) = (p) 



• If the first two types of exponentiation do not apply, 
both operands are converted (as necessary) to FLOAT 
and a FLOAT to FLOAT exponentiation is performed. 
The result is FLOAT with the base and mode of the first 
operand, after conversion. The precision of the result is 

(m) = (MAX(p,r)) 

In some special cases of exponentiation, the result value can 
be determined without executing the operation. The result 
value is determined in the following way, where x represents 
the value of the first operand, and y represents the value of 
the second operand: 

• For x=0 and y>0, the result is 

• For xn=0 and y=0, the result is 1 

• For x=0 and y<=0, the ERROR condition is raised 

• For x<0 and y not FIXED (r,s), with s=0, the ERROR | 
condition is raised 



STRING OPERATIONS 

String operations can be specified with prefix or infix 
operators. The prefix operator is —> (NOT). The infix 
operators are & (AND), I (OR), and II (concatenate). The 
operators ~~> & and I are for bit strings. The operator II is for 
character strings or bit strings. For string operations, the 
operands can be character string, bit string, arithmetic, or 
pictured items. Operands can also be intermediate values 
that are result values from subexpression evaluations. The 
result of the operation is a bit string or character string 
with a specific length. The result can be used as an operand 
in a subsequent operation or can be the final result of 
expression evaluation, depending on the circumstances. 
Examples of string operations are shown in figure 7-5. 



DCL 
DCL 
DCL 
DCL 
DCL 

• 


CHAR CHARACTER (4) INIT(*K+M 
CHARVAR CHAR (6) VARYING INIT(+LMN+M 
PICSTR PICTURE 1-AA99* INIT (»AB33t > 1 
BIT BIT(S) INIT(*1I011»B)I 
BITVAR BIT<e> VARYING INIT (*1000*BM 


• 

/•NOT OPERATION 

PUT SKIP LIST(-eiT)» 

/•RESULT IS fOOlOO+B 

• 


•/ 

•/ 


/•AND OPERATION 

PUT SKIP LIST (BIT a BITVAR); 

/•RESULT IS tl0O00*B 

• 


•/ 

•/ 


/•OR OPERATION 

PUT SKIP LIST<BITVAR v BIT>» 

/•RESULT IS tUOU+B 


•/ 
•/ 


• 

/•CONCATENATE OPERATION 

PUT SKIP LIST (CHAR vv CHARVAR) 1 

/•RESULT IS *K LMN* 

• 


•/ 
*/ 


PUT SKIP 
/•RESULT 


LIST(ChARVAR vv PICSTR)! 
IS tLMNAB33t 


•/ 



Figure 7-5. String Operations Examples 



60388100 B 



7-5 



Operand Conversion 

For bit string operations, each operand is converted, as 
necessary, to a bit string. For the operator II (concatenate), 
both operands are converted, as necessary, to character 
strings unless both are bit strings. 



Character String Operand 

A character string operand in a bit string operation requires 
character to bit conversion. The operand is converted to a 
bit string with the current length of the character string. A 
character string operand in a concatenate operation requires 
no conversion. 



Bit String Operand 

A bit string operand in a prefix or infix bit string operation 
requires no conversion. Unless both operands are bit strings, 
a bit string in a concatenate operation requires bit to 
character conversion. The operand is converted to a 
character string with the current length of the bit string. 



Pictured Operand 

A pictured character or pictured numeric operand in a bit 
string operation requires character to bit conversion on the 
character value of the pictured item. A pictured character 
or pictured numeric operand in a concatenate operation is 
used for its character value. 



Arithmetic Operand 

An arithmetic operand in a bit string operation requires 
arithmetic to bit conversion. An arithmetic operand in a 
concatenate operation requires arithmetic to character 
conversion. The length of the bit string or character string 
depends on the precision of the arithmetic operand. 



Prefix Bit String Operation 

The result value of the prefix operator —> (NOT) is the 
complement of the bit string operand (after conversion to 
bit). At each bit position, the corresponding bit of the result 
is set to 'l'B if the operand has 'O'B, or set to 'O'B if the 
operand has 'l'B. The length of the result is the length of 
the operand. An example of a prefix operation is included in 
figure 7-5. 



Logical OR 

For the infix I operator, a logical OR operation is 
performed on the strings, bit by bit. At any bit position, the 
corresponding bit of the result is set to 'l'B if either operand 
has 'l'B or both operands have 'l'B. The corresponding bit of 
the result is set to 'O'B if both operands have 'O'B. 



Concatenate Operation 

The result value of the infix operator II (concatenate) is a 
character string if the two operands are character strings. 
The result value is a bit string if the two operands are bit 
strings. The resulting length is the sum of the lengths of the 
two character string or bit string operands (after con- 
version). The second string is concatenated with the first so 
that its first character (or bit) immediately follows the last 
character (or bit) of the first string. If one of the operands 
has a VARYING attribute, the length of the result can be 
different each time the operation is performed. Examples 
of the concatenate operation are included in figure 7-5. 



COMPARISON OPERATIONS 

Comparison operations are all infix operations. The compar- 
ison operators are = (equal), -i = (not equal), < (less than), 
~>< (not less than), < = (less than or equal), > (greater than), 
~i> (not greater than), and > = (greater than or equal). 
Examples of comparison operations are shown in figure 7-6. 



DCL FIXOEC FIXED DEC<10,3> INIT(l.lO); 
OCL FLBIN FLOAT BINU5) INIT ( 1 .010E2B) » 
DCL CHAR CHARACTER (4) INIT<fK*>t 
DCL CHARVAR CHAR16) VARYING INIT (♦LMN'M I 



PUT SKIP LISTIFIXDEC > 1)1 
/•RESULT IS *1*B 



PUT SKIP LIST(FLBIN >= 111E0BM 
/•RESULT IS fO*B 



PUT SMP LIST (CHAR > ChARVARM 
/•RESULT IS tO+B 



*/ 



•/ 



Figure 7-6. Comparison Operations Examples 



Infix Bit String Operation 

The result value of the bit string operator & (AND) or I (OR) 
is a bit string with a length that is the greater of the current 
lengths of the two operands. Before the operation occurs, 
the shorter operand is padded on the right with zero bits to 
the length of the longer one. If either operand has the 
VARYING attribute, the infix expression can yield a string 
of a different length each time it is evaluated. Examples of 
infix bit string operations are included in figure 7-5. 

Logical AND 

For the infix & operator, a logical AND operation is 
performed on the strings, bit by bit. At any bit position, the 
corresponding bit of the result is set to l'B if both operands 
have a 'l'B. The corresponding bit of the result is set to 'O'B 
if either operand has 'O'B or both operands have 'O'B. 



Operand Conversion 

No conversion occurs if both operands have the same data 
type. Any necessary conversions are done to achieve a 
common data type. 

Arithmetic values can be compared. If at least one operand 
is arithmetic or pictured numeric, the common type is 
arithmetic. One or both operands are converted to 
arithmetic and additionally converted to a common base and 
scale in the same way as for infix arithmetic operations. A 
pictured numeric item is interpreted for its arithmetic 
value. 

String values can be compared. If one operand is a 
character string and the other is a bit string, the common 
type is character. The bit string operand therefore requires 
a bit to character conversion. A pictured character item is 
used for its character value. 
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Locator values can be compared. If one operand is a pointer 
value and the o'ther an offset value, pointer is the common 
type. The offset value is therefore converted to pointer in 
an offset to pointer conversion. 

Area values cannot be compared- Lr.hel, formal, entry, ar.3 
file values cannot be compared. 

Infix Comparison Operation 

The result value of a comparison operation is expressed as 
the truth of the comparison. If the comparison is true, the 
result value is 'l'B. If the comparison is false, the result 
value is 'O'B. 

Arithmetic comparison is an algebraic comparison of arith- 
metic values. 

NOTE 

Every floating point value is an approximation. 
Floating point values are not rounded or truncated 
to the precision (p) declared for a target variable. 
The program should not compare two FLOAT 
values for precise equality. 

Character string comparisons are performed 
eharacter-by-character from left to right. Comparison 
stops when the first nonmatching pair is encountered. If 
the strings are not the same length before the comparison 
begins, the shorter string is padded on the right with 
blanks so that it is the same length as the other. For all 
comparisons involving greater-than or less-than relations, 
the collating sequence is used. In the collating sequence, 
a blank is less than any nonblank character, special 
characters are less than alphabetic characters, and 
alphabetic characters are less than numeric characters. 
('A' is less than 'B' . . . , and '1' is less than '2' . . . ) Two null 
strings are equal. The collating sequence appears in 
appendix A. 

Bit string comparison involves a bit-by-bit comparison of the 
two strings from left to right. If one string is shorter than 
the other, the shorter string is padded on the right with zero 
bits to the length of the longer string before comparison 
begins. For all greater-than and less-than tests, a 'l'B is 
greater than a 'O'B. Two null strings are equal. 

Pointer values are equal if they are both null, or if both 
identify the same generation. Pointer values can only be 
compared with the = and -> = operators. Offset values are 
equal if they are both null or they both represent the same 
displacement from the beginning of an area. TV> attributes 
of the BA.SRF5 generations represented Hy the offset values 
are not compared. Offset values are also equal if they 
represent the same displacement from the beginning of 
different areas. Offset values can only be compared with 
the = and -» = operators. 

ASSIGNMENT 

The assignment operation assigns a source value to a target. 
Any previous value of the target is replaced with the source 
value. The source and the target value must be scalar. The 
target value can be a scalar pseudovariable. The source or 
the target can be an array element or structure member but 
cannot be an array or structure. A subscripted source or 
target reference cannot have any asterisk subscripts. 

Assignment occurs in the following circumstances: 

• Assignment statement execution 

• GET statement execution with LIST or EDIT option 

• PUT statement execution with STRING option 



• Assignment of a locator value to a locator variable 
during ALLOCATE, READ, or LOCATE statement 
execution 

• Assignment of a value to a KEYTO option variable 
during READ statement execution 

• Assignment of a value to the target-variable in a 
REFER option during allocation of a BASED structure 

• Assignment of initial values according to the INITIAL 
attribute during allocation of a STATIC, AUTOMATIC, 
BASED, or CONTROLLED variable 

• Assignment of a value to the index during indexed DO 
execution or during execution of an embedded-do in a 
GET or PUT statement 

If the source value has a different data type than the target, 
conversion of the source value is necessary. No conversion 
is necessary if the data type of the source value matches the 
data type of the target. The source value is assigned to the 
target without conversion. If conversion is necessary, the 
source value is converted to an intermediate value that is 
assigned to the target. If conversion is necessary, the data 
types must be compatible. Source type and target type are 
compatible if both are in one of the following categories: 

• Computational (arithmetic, character, bit, or picture) 

• Locator (pointer or offset) 

• Label 

• Area 

COMPUTATIONAL ASSIGNMENT 

A computational source value must be assigned only to a 
computational target. The source value and the target value 
can be arithmetic, character string, bit string, pictured 
string, or pictured numeric. Any computational value can be 
converted to any other type of computational value, as 
shown in table 7-4. Computational conversion produces an 
intermediate value with computational data type attributes 
identical to the data type attributes of the target value. 
For assignment of an arithmetic source value to a target, 
conversion is required even if mode, base, and scale match 
but precision does not match. For assignment of a character 
or bit source value to a target with the same type, 
conversion is required simply to adjust the length. For 
conversion from a pictured source value, the pictured source 
value is a character value or is interpreted for the 
arithmetic value, depending on the pictured item and the 
circumstances. For assignment to a pictured target value, 
an operation to validate through the picture or edit through 
the picture is necessary. Picture-controlled conversions are 
described later in this section. 

LOCATOR ASSIGNMENT 

A locator source value must be assigned only to a locator 
target value. A pointer source value is directly assigned to 
a pointer target value. An offset source value is directly 
assigned to an offset target variable, without regard for any 
area identified in the declaration of the offset target 
variable. The offset source value represents a displacement 
from the beginning of an area. Conversion is possible from 
pointer to offset or offset to pointer. 

LABEL ASSIGNMENT 

A label source value must be assigned only to a label target 
value. A label source value is assigned directly to a label 
target value. The label source value represents an address. 
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TABLE 7-4. COMPUTATIONAL CONVERSION FOR ASSIGNMENT 



Source Type 




Target Type 


Arithmetic 


Pictured Numeric 


Character 


Pictured Character 


Bit 


Arithmetic 


Arithmetic to 

arithmetic^. 

conversion 


Arithmetic to 

arithmetic. 

conversion 


Arithmetic to 

character 

conversion 


Arithmetic to 

character 

conversion 


Arithmetic to 
bit conversion 

Assign 




Assign 


Edit through 
picture and 
assign 


Assign 


Validate through 
picture and assign 


Pictured 
Numeric 


Interpret for 
arithmetic value 


Interpret for 
arithmetic value 


Use character 
value 


Use character 
value 


Interpret for 
arithmetic value 




Arithmetic to 

arithmetic^ 

conversion 


Arithmetic to 

arithmetic^ 

conversion 


Character to 
character . 
conversion 


Character to 
character . 
conversion 


Arithmetic to 
bit conversion 

Assign 




Assign 


Edit through 
picture and 
assign 


Assign 


Validate through 
picture and 
assign 


Character 


Character to 

arithmetic 

conversion 


Character to 

arithmetic 

conversion 


Character to 
character . 
conversion 


Character to 
character . 
conversion 


Character to 
bit conversion 

Assign 




Assign 


Edit through 
picture and 
assign 


Assign 


Validate through 
picture and 
assign 


Pictured 
Character 


Use character 
value 


Use character 
value 


Use character 
value 


Use character 
value 


Use character 
value 




Character to 

arithmetic 

conversion 


Character to 

arithmetic 

conversion 


Character to 
character . 
conversion 


Character to 
character . 
conversion 


Character to 
bit conversion 

Assign 




Assign 


Edit through 
picture and 
assign 


Assign 


Validate through 
picture and 
assign 


Bit 


Bit to arithmetic 
conversion 


Bit to arithmetic 
conversion 


Bit to 
character 


Bit to character 
conversion 


Bit to bit + 
conversion 




Assign 


Edit through 
picture and 
assign 


conversion 
Assign 


Validate through 
picture and 
assign 


Assign 


Not necessary fc 
string value if tl 


>r an arithmetic value i 
le length is already as r 


f mode, base, scale, an 
equired. 


d precision are a! 


ready as required. No 


t necessary for a 



AREA ASSIGNMENT 

An area source value must be assigned only to an area target 
value. The area target variable must be of sufficient size to 
contain all based generations presently allocated in the 
source area. After assignment, all offset variables valid for 
the source area are valid for the target area. If the target 
area contains any allocated generations, assignment to the 
target area destroys all previously allocated generations and 
invalidates all locator values that previously addressed the 
allocated generations. The area value of the source area is 
dependent on the order of allocation and freeing of 
generations in the source area. If the target area cannot 
contain all allocated generations in the source area at the 
same offset positions, the AREA condition is raised. 



CONVERSIONS 

Conversion of a value is necessary when the data type 
attributes are not appropriate for the context in which the 
value is used. Conversion occurs automatically in a number 
of circumstances. In conversion, a source value is 
converted to an intermediate value. 

During expression evaluation, any operand can be converted 
as necessary to a computational type (arithmetic, bit string, 
or character string) appropriate for the operator in a prefix 
or infix expression. If the operands of an infix arithmetic 
operator are not the same data type, one operand is 
converted or both operands are converted to a common 
arithmetic data type. Conversion of operands to a common 
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base and scale does not apply to the exponentiation 
operation. Operands in an. infix comparison operation are 
converted as necessary to a common data type. Individual 
cases of required conversion are described earlier in this 
section for specific arithmetic, string, or comparison opera- 
tions. 

For assignment, if the source value does not have the same 
data type as the target, the source value is converted to the 
data type of the target before assignment. Assignment is 
described earlier in this section. Assignment can involve 
conversion of the source value from one data type to 
another. 

When an argument is passed to a parameter during CALL 
statement execution or evaluation of a function reference 
(including a builtin function reference), conversion can be 
required for the argument. 

When a RETURN statement is executed, conversion is 
required if the value of the expression specified by the 
statement does not have the data type specified by the 
RETURNS attribute associated with the entry name used to 
invoke the procedure. 

Conversion to integer is performed as necessary in evalu- 
ation of an expression used in a number of program 
components. The intermediate value has the attributes 
REAL FIXED BINARY (17,0), The conversion used depends 
on the result type of the evaluated expression. Conversion 
to integer is done as necessary for the following program 
components: 

• LINESIZE, PAGESIZE, SKIP, and LINE options of I/O 
statements for stream files 

• Subscripts in a subscripted reference 

• Extents that specify area sizes, string lengths, and 
array bounds 

• IGNORE option of a READ statement 

• Any POSITION attribute declared for a DEFINED 
variable 

• Certain argument expressions in a SUBSTR builtin 
function or pseudovariable reference 

• Iteration factors used in INITIAL attributes and in 
format specifications 

Conversion to character string is performed as necessary in 
evaluation of an expression in a number of program 
components. The intermediate value has the attributes 
CHARACTER and nonvarying. The exact conversion pro- 
cedure used depends on the result type of the expression. 
Conversion to character string is done as necessary for the 
following program components: 

• The STRING option of a GET statement. The length of 
the intermediate string is determined by the value of 
the input-source expression. 

• Values transmitted to the output Stream during PUT 
statement execution. Length is appropriate for the 
source value (LIST option) or specified with a format 
item (EDIT option). 



• The KEY option of a READ, REWRITE, or DELETE 
statement, or the KEYFROM option of a WRITE or 
LOCATE statement. The length of the target string is 
determined by the length of the key for the file. 



Conversion to bit string is performed as necessary in 
evaluation of an expression in a number of program 
components. The intermediate value has the attributes BIT 
and nonvarying. The length of the intermediate string is 
determined by the expression value. The exact conversion 
procedure used depends on the data type of the expression. 
Conversion to bit string is done as necessary for the 
following program components: 

• Any WHILE option in a DO statement or in an 
embedded-do in a GET or PUT statement 

• The expression in an IF statement 

The conversion of any computational value to another 
computational data type is possible. The computational 
conversions are the following: 

• Arithmetic, character, or bit to arithmetic 

• Arithmetic, character, or bit to character 

• Arithmetic, character, or bit to bit 

• Validate through picture, edit through picture, and 
interpret for arithmetic value as described later in this 
section for pictured items 

The locator conversions are the following: 

• Pointer to offset 

• Offset to pointer 

If conversion is required and the required conversion is not 
defined (not legal), the program is in error and a fatal 
eompile-time diagnostic message is issued. The description 
of each conversion describes the conditions that can be 
raised during the conversion. 



ARITHMETIC TO ARITHMETIC CONVERSION 

The mode, base, scale, and precision of the source arith- 
metic value are known. For conversion during assignment, 
the required base, scale, and precision of the intermediate 
value are known. For operand conversion, the required base 
and scale are known. For operand conversion, the precision 
is calculated as shown in table 7-5. Operand conversion 
does not require any FLOAT to FIXED conversion. 

The intermediate value resulting from the conversion has 
the mode REAL and the required base and scale. The 
intermediate has the required precision or the calculated 
precision. 

The SIZE condition is raised if the target is FIXED with a 
precision insufficient to represent the integral value of the 
source. The OVERFLOW or UNDERFLOW condition can be 
raised in a FLOAT DECIMAL to FLOAT BINARY conversion 
or FIXED DECIMAL to FLOAT BINARY conversion. 

NOTE 

A FIXED DECIMAL variable or literal constant 
with noninteger value and small positive value of 
precision q should be avoided in an operation that 
causes conversion to FIXED BINARY. For 
example, the expression (.1 + OB) has the result 
value 00.0001B (0.0625) because of the precision 
rules. The expression (.1000 + 0B) has the result 
value 00.00011001100101B (approximately 

0.0999435). 

Examples of arithmetic to arithmetic conversion are shown 
in figure 7-7. 
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TABLE 7-5. PRECISION IN ARITHMETIC TO ARITHMETIC CONVERSION 



Source Type 


Required 
Intermediate Type 


Resulting Precision 
of Intermediate 


FIXED BINARY (p,q) 
FIXED DECIMAL (p,q) 

FIXED BINARY (p,q) 
FIXED DECIMAL (p,q) 

FIXED BINARY (p,q) 
FIXED DECIMAL (p,q) 
FLOAT BINARY (p) 
FLOAT DECIMAL (p) 

FIXED BINARY (p,q) 
FIXED DECIMAL (p,q) 
FLOAT BINARY (p) 
FLOAT DECIMAL (p) 


FIXED BINARY 
FIXED BINARY 

FIXED DECIMAL 
FIXED DECIMAL 

FLOAT BINARY 
FLOAT BINARY 
FLOAT BINARY 
FLOAT BINARY 

FLOAT DECIMAL 
FLOAT DECIMAL 
FLOAT DECIMAL 
FLOAT DECIMAL 


(p.q) 

(MIN(CEIL(p*3.32)+l,48), CEIL(q*3.32)) 
(MIN(CEIL(p/3.32)+l,14), CEIL(q/3.32)) 

(p, q) 

(MIN(p,48)) 
(MIN(CEIL(p*3.32),48)) 

(P) 
(MIN(CEIL(p*3.32),48)) 

(MIN(CEIL(p/3.32),14)) 
(MIN(p,14)) 

(MIN(CEIL(p/3.32),14)) 
(P) 



OCL F1X0EC FIXEO DECIMAL; 
OCL FLDEC FLOAT DECIMAH 
OCL FIXBIN FIXED BINARY! 
OCL FLBIN FLOAT BINARY; 



FIXDEC = 12.0EH 

PUT SKIP LIST(FIXDEC)! 

/•RESULT IS 120 



FLDEC = 51 

PUT SKIP LIST (FLDEC) ; 

/•RESULT IS 5.0000000000000E< 



•/ 



000 



FLBIN ■ 65.0E-H 

PUT SKIP LIST(FLBIN); 

/'RESULT IS 1.000001000E*006B •/ 

/•LISTING IS 6.5000000000000E+000 */ 



FIXBIN = 2S; 
PUT SKIP LIST(FIXBIN)! 
/•RESULT IS 00011001B 
/•LISTING IS 25 



•/ 
•/ 



Figure 7-7. Arithmetic to Arithmetic Conversion Examples 



CHARACTER TO ARITHMETIC CONVERSION 

The length of the source character string is known. The 
source string is expected to contain an arithmetic 
constant, optionally preceded by a sign. The constant can 
be preceded and followed by any number of blanks. If the 
source string consists entirely of blanks, or if the source 
string is null, the value is zero. The intermediate value 
resulting from the conversion has the mode REAL. An 
arithmetic to arithmetic conversion is used to convert the 
arithmetic constant to the required base, scale, and 
precision. The required precision is not known if the 
conversion was caused by an operator in an expression. In 
that case, the precision for the conversion becomes (14) or 
(14,0) for DECIMAL, (48) or (48,0) for BINARY. 



The CONVERSION condition is raised if the source string 
does not contain a valid arithmetic constant or all blanks. 

If conversion from character string to arithmetic involves an 
arithmetic precision with q=0, any fractional digits are lost. 

Examples of character to arithmetic conversion are shown in 
figure 7-8. 



OCL FIXDEC FIXED DECIMAL; 




DCL FIXBIN FIXEO BINARY! 

• 




• 

FIXDEC = tl25.3t! 




PUT SKIP LIST(FIXOEC)! 




/•RESULT IS 125 

• 


♦/ 


FIXBIN = t*I01*» 




PUT SKIP LIST(FIXBIN)! 




/•RESULT IS 000000001100101B 


•/ 


/•LISTING IS 101 


•/ 



Figure 7-8. Character to Arithmetic Conversion Examples 



BIT TO ARITHMETIC CONVERSION 

The length of the source bit string is known. The bit 
string is considered to be a positive binary integer with a 
length of 48 bits. If the string length is greater than 48, 
only the rightmost 48 bits are used. If the source string is 
null, the value is zero. The intermediate value resulting 
from the conversion has the mode REAL. An arithmetic 
to arithmetic conversion is used to convert the FIXED 
BINARY integer to the required base, scale, and 
precision. The required precision is not known if the 
conversion was caused by an operator in an expression. In 
that case, the precision becomes (14) or (14,0) for 
DECIMAL, (48) or (48,0) for BINARY. 

Examples of bit to arithmetic conversion are shown in 
figure 7-9. 
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OCL FIXDEC FIXEO OECIMALI 
OCL FLBIN FLOAT BINARY! 



FIXDEC = + 1*8* 

PUT SKIP LIST(FIXDEC)I 

/•RESULT IS l 



FLBIN = ♦1101+BJ 

put skip list(Flbin); 

/•result is i. 101000... 000e«003b 

/•listing is 1.3000000000000e«001 



•/ 



•/ 
•/ 



Examples of arithmetic to character conversion are shown in 
figure 7-10. 



Figure 7-9. Bit to Arithmetic Conversion Examples 



ARITHMETIC TO CHARACTER CONVERSION 



The mode, base, scale, and precision of the arithmetic 
source value are known. An arithmetic to arithmetic 
conversion is used, if necessary, to convert the source value 
to a DECIMAL value. The DECIMAL value is then 
converted to a character string. Conversion to character 
string is described in terms of picture-controlled conversion. 
Conversion is performed in one of the following ways to 
generate the result string, S: 

• Value FIXED DECIMAL with q=0: The length of S is 
p+3. The string value is derived as if under the control 
of the picture 

■BB(p)-9* 

• Value FIXED DECIMAL with p>=q and q>0: The length 
of S is p+3. The string value is derived as if under the 
control of the picture 

'B(i)-9V.(q)9' where repetition factor i=p-q 

and q controls the number of 
digits in the fractional part 

• Value FIXED DECIMAL with p=q and q>0: The length 
of S is p+4. The string value is derived as if under 
control of the picture 

■-9V.(q)9* 

• Value FIXED DECIMAL with p<q or with q<0: The 
length of S is p+3+k, where k is the number of digits 
needed to represent the value of q. A partial string 
value is derived as if under the control of the picture 



'(p)-9* 



where the value is multiplied by 
(10**q) before being edited 
through the picture 



The partial string is completed with the addition of an F 
followed by a signed decimal integer whose value is -q. 

• Value FLOAT DECIMAL: The length of S is p+7. The 
string value is derived as if under the control of the 
picture 

'-9V.(i)9ES999' where repetition factor i=p-l 

If the required length is known, the length of string S is 
adjusted to the target length. The string S is padded on the 
right with blanks or truncated on the right to form the 
intermediate value. 



OCL CHAR CHARACTERS) VARVINGI 



CHAR * -101 
PUT SKIP LIST (CHAR) I 
/•RESULT IS ♦ -10* 
/•LISTING IS -10 



CHAR ■ 11.1BJ 
PUT SKIP LIST (CHAR) I 
/•RESULT IS ♦ 3.5* 
/•LISTING IS 3.5 



•/ 
•/ 



•/ 
•/ 



Figure 7-10. Arithmetic to Character Conversion Examples 



CHARACTER TO CHARACTER CONVERSION 



The length of the source character string and the length of 
the target character string are known. The source string is 
adjusted to the length of the target string. The source 
string is padded on the right with blanks or truncated on the 
right to form the intermediate value. 

Examples of character to character conversion are shown in 
figure 7-11. 



OCL CHAR CHARACTER (8)1 




CHAR = tG»» 
PUT SKIP LIST (CHAR) 1 
/•RESULT IS *6 ♦ 
/•LISTING IS G 


•/ 
•/ 


CHAR > ♦A12B12C12D12+J 
PUT SKIP LIST (CHAR) t 
/•RESULT IS +A12B12C1+ 
/•LISTING IS A12B12C1 


•/ 
•/ 



Figure 7-11. Character to Character Conversion Examples 



BIT TO CHARACTER CONVERSION 

The length of the source bit string is known. The source 
string is converted to a character string by changing each 
'0'B bit of the source to a '0' character and each 'l'B bit to a 
•1' character. If the required length is not known, the 
changed string is the intermediate value. 

If the required length is known, the length of the string is 
adjusted to the target length. The string is extended on the 
right with blanks or truncated on the right to form the 
intermediate value. 

An example of bit to character conversion is shown in 
figure 7-12. 
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DO. CHAR CHARACTER (8)1 

• 




* 

CHAR = +1101*6* 




PUT SKIP LIST (CHAR) | 




/•RESULT IS +1101 ♦ 


•/ 


/•LISTING IS 1101 


•/ 



Figure 7-12. Bit to Character Conversion Example 



If the required length is known, the length of the bit string is 
adjusted to the target length. The string is padded on the 
right with '0*B bits or truncated on the right to form the 
intermediate value. 

The CONVERSION condition is raised if the source string 
contains any characters other than '0' or '1* characters. 

An example of character to bit conversion is shown in 
figure 7-14. 



ARITHMETIC TO BIT CONVERSION 

The mode, base, scale, and precision of the source arith- 
metic value are known. The absolute value of the source is 
taken. An arithmetic to arithmetic conversion is used, if 
necessary, to convert the source value to a FIXED BINARY 
value with the precision shown in table 7-6. The FIXED 
BINARY integer is interpreted as a bit string with a length 
that is the precision p. If the required length is not known, 
the intermediate value is the bit string. 



OCL BIT BITUOM 



BIT » ♦01001*1 

PUT SKIP LISMBITM 

/•RESULT IS *0100100000*B 



•/ 



Figure 7-14.. Character to Bit Conversion Example 



TABLE 7-6. PRECISION IN ARITHMETIC TO BIT 
CONVERSION 



Source Type 


Required Precision 


FKED BIN (p,q) 
FIXED DEC (p,q) 
FLOAT BIN (p) 
FLOAT DEC (p) 


(MIN(48,MAX(p-q,0», 0) 
(MIN(14,MAX(CEIL((p-q)*3.32),0)), 0) 
(MIN(48,p), 0) 
(MIN(14,CEIL(p*3.32)), 0) 



If the required length is known, the length of the bit string is 
adjusted to the target length. The bit string is padded on 
the right with '0'B bits or truncated on the right to form the 
intermediate value. 

Examples of arithmetic to bit conversion are shown in 
figure 7-13. 



OCL BIT BITUOM 



BIT = 1018* 

PUT SKIP LIST (BIT) J 

/•RESULT IS *1010000000+6 



BIT - 33* 

PUT SKIP LIST(BIT)* 

/•RESULT IS ♦0100001000*6 



•/ 



BIT TO BIT CONVERSION 

The length of the source bit string and the length of the 
target bit string are known. The source string is adjusted to 
the length of the target string. The source string is padded 
on the right with '0'B bits or truncated on the right to form 
the intermediate value. 

Examples of bit to bit conversion are shown in figure 7-15. 



OCL BIT BITUOM 



BIT » +110110*6* 
PUT SKIP LIST (BIT) I 
/•RESULT IS *1101100000*B 



BIT » *UU110U011*BI 
PUT SKIP LIST (BIT) I 
/•RESULT IS *mmoiio*B 



•/ 



Figure 7-13. Arithmetic to Bit Conversion Examples 



Figure 7-1 5. Bit to Bit Conversion Examples 



POINTER TO OFFSET CONVERSION 

A pointer value can be converted to an offset value that 
identifies the same BASED generation stored within' the 
same area. The program is in error unless the offset was 
declared with the area reference, or the conversion occurs 
during evaluation of the OFFSET builtih function where the 
area reference is supplied as the second argument. 



CHARACTER TO BIT CONVERSION 

The length of the source character string is known. The 
source string must consist of '0' and 1' characters only. The 
source string is converted to a bit string by changing each '0' 
character to a '0'B bit and each '1' character to a 'l'B bit. If 
the required length is not known, the changed string is the 
intermediate value. 



OFFSET TO POINTER CONVERSION 

An offset value that identifies a BASED generation allo- 
cated within an area can be converted to a pointer value 
that identifies the same generation. The program is in error 
unless the offset was declared with the area reference, or 
the conversion occurs during evaluation of the POINTER 
builtin function where the area is identified by the second 
argument. 
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PICTURE-CONTROLLED CONVERSIONS 



PICTURED NUMERIC FIXED POINT 



Picture-controlled conversions apply to pictured variables 
and to input/output operations that involve picture specifi- 
cations. Pictured variables are declared with the PICTURE 
attribute, as described in section 4, Attributes. Stream I/O 
operations can be performed with the P format item, as 
described in section 8, Input/Output. Specification of the 
PICTURE attribute or the P format item involves the use of 
picture codes. Syntax of the picture specification is shown 
in figure 7-16. The following discussion provides the 
specific rules for using the picture codes. 

A picture can be specified for a pictured character, pictured 
numeric fixed point, or pictured numeric floating point item. 
Each pictured character item has a character value. Each 
pictured numeric item has a character value and also a 
decimal arithmetic value that can be fixed point or floating 
point. Any pictured variable is stored as a character value. 
Maximum length of the character value is 1000 characters. 
If the arithmetic value of any pictured numeric variable is 
required, the arithmetic value is interpreted from the 
present character value. 

Picture codes can be specified with repetition factors. Each 
repetition factor is an unsigned decimal integer enclosed in 
parentheses. The repetition count applies to the picture 
code immediately to the right of the repetition factor. If 
the repetition factor is zero, the picture code is ignored 
rather than repeated. For instance, '(5)Z99' is equivalent to 
'ZZZZZ99' and '(0)Z99' is equivalent to '99'. 



PICTURED CHARACTER 

A pictured character item has a character value that can 
contain characters, digits, or blanks. The picture codes for 
a pictured character item specify the type of character that 
can appear in each position. The available codes are shown 
in table 7-7. 

TABLE 7-7. CODES FOR PICTURED CHARACTER 



Category 


Code 


Use 


Character codes 


9 
A 
X 


Digit or blank 
Letter A-Z or blank 
Any character 



Validate through Picture 

A character value that is assigned to a pictured character 
variable or written out through a P format item is validated 
through the picture. The character value must match the 
picture. If an indicated character does not appear, the 
CONVERSION condition is raised. 



A pictured numeric fixed point item has a character value 
representing a FIXED DECIMAL value on which editing has 
been performed. The character value contains the decimal 
digits and all edited characters including insertion char- 
acters. The character value does not include the assumed 
decimal point but can include inserted decimal points. 

Assignment of an arithmetic value to a pictured numeric 
fixed point variable can raise the SIZE condition. SIZE is 
raised if editing the value through the picture specification 
causes loss of significant digits on the left. SIZE is also 
raised if the arithmetic value is negative but the picture 
does not include a sign indication. 

The picture codes used for pictured numeric fixed point 
items can be grouped by function. The available picture 
codes are shown in table 7-8. A pictured numeric fixed 
point item consists of one field. If the assumed decimal 
point (picture code V) is used, the assumed decimal point 
divides the picture into an integer subfield and a fractional 
subfield. 

TABLE 7-8. CODES FOR PICTURED NUMERIC 
FKED POINT 



Category 


Code 


Use 


Digit code 


9 


Digit 




Z 


Leading zero suppression digit 




* 


Leading zero replacement digit 




Y 


Zero suppression digit 


Decimal point 
code 


V 


Assumed decimal point 


Sign position 


S 


Sign + or - (can drift) 


codes 


+ 


Sign if + (can drift) 




- 


Sign if - (can drift) 


Signed digit 


T 


Overpunch digit with + or - 


codes 


I 


Overpunch digit if + 




R 


Overpunch digit if - 


Sign suffix 


CR 


Credit indicator 


codes 


DB 


Debit indicator 


Currency code 


$ 


Dollar sign (can drift) 


Insertion codes 


/ 


Inserted slash 




» 


Inserted comma 




. 


Inserted period 




B 


Inserted blank 


Scaling factor 
code 


F 


Scaling factor for arithmetic 
value 



Character Codes 

The A code indicates any letter (A through Z) or blank. The 
X code indicates any character. The 9 code indicates any 
digit or blank. The picture specification for each pictured 
character item must contain at least one A or X code. The 
total number of A, X, and 9 codes establishes the number of 
characters in the pictured character item. 



The picture specification for a fixed point value must 
contain at least one code that represents a digit 
(9 Z * Y T I or R) in the field. The maximum number of 
digits that can be represented in the entire field is 14. Only 
one assumed decimal point code (V) can be specified. In the 
entire field, the sign can be represented only once with a 
sign position code (S + or -), a signed digit code (T I or R), or 
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{pictured -character 
pictured-numeric-fixed 
pictured -numeric-float 

where pictured-character must include at least one A or X code and is 

9 
A 
X 

where pictured-numeric-fixed must include at least one of the codes 9 Z * Y T I or R, must include no more than one sign code 
S + - T I R CR or DB, can include insertion codes / , . or B at any position, and is 

{^n^ ie ' d } [ F( C] in H 
where nondrifting-f ield is 

}[$]•+ I • digits 

where digits is 

IL* . ■ -J [ d '9' t_ P 0S ] ■ • ■ [ v ] [digit-pos ] . ... 

,[z... ]v; 

S' ■■■ J v 

where digit-pos is 



lil 



where drifting-field is 

[S] • drifting-sign 



pS"| j S$ . . . [digit-pos] . . . [ V ] [digit-pos] . . . ) A 

[-■■■[a-^fvl-vlL} 

($[s...]v$... ) ( DB ) 



where drifting-sign is 



{"::■) [J] •■'•(»] RJ. 



where pictured-numeric-float is 
mantissa I ^ i exponent 

where mantissa must include at least one*of the codes 9 Z * Y T I or R, must include no more than one sign code S + - T I or 
R, cap include insertion codes / , . or B at any position, and is 



!&] 



+ I digits 



drifting-sign 

and where exponent must include at least one of the codes 9 Z * Y T I or R, must include no more than one sign code S + ■ 
T I or R, can include insertion codes / , . or B at any position, and is 



[ digit-pos . . . \ 

I I * .'.'.'} Cd"9it-po*] . . .) 



Figure 7-16. Picture Specification Syntax 
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a sign suffix code (CR or DB). A sign position code can be 
used in a drifting sequence. In the field, a currency code ($) 
can be used only once and can be used in a drifting sequence. 
The insertion codes (/ , . or B) cause insertion of a slash, 
comma, period, or blank' anywhere in the field. Any 
combination and number of insertion characters can be used. 
The scaling factor code (F) can be used to specify that the 
arithmetic value is to be scaled. Each picture code for 
numeric fixed point items is described by category. 



Edit through Picture 

An arithmetic value that is assigned to a pictured numeric 
variable or written out through a P format item is edited 
through the picture specification. The arithmetic value is 
used to create a character value that can include digits, 
blanks, a sign indication, a dollar sign, and inserted 
characters. The created character value depends on the 
picture codes specified. The picture codes indicate a 
character value created from a FIXED DECIMAL arithmetic 
value. 



Interpret for Arithmetic Value 

A pictured numeric is stored as a character value and can be 
interpreted for the arithmetic value when the arithmetic 
value is required for the purpose of operations or assign- 
ment. The character value is interpreted for the arithmetic 
value when an input value is read in through a P format 
item. The arithmetic value is FIXED DECIMAL with a 
precision indicated in the picture specification. 



Digit Codes 

The digit codes specify character positions in which a 
decimal digit can appear. The digit codes are the following: 



indicates a digit position to hold a digit, 
position can hold a leading zero as necessary. 



The 



Z indicates leading zero suppression. When the 
position would hold a leading zero for the number, 
the zero is replaced with a blank. When the 
position would hold a significant digit, the Z code 
acts as a 9 code. 

* indicates leading zero replacement. When the 
position would hold a leading zero for the number, 
the zero is replaced with an asterisk. When the 
position would hold a significant digit, the * code 
acts as a 9 code. 

Y indicates zero suppression. When any position of a 
number would hold a zero digit, the zero is 
replaced with a blank. Effectively, the Y code 
unconditionally replaces a zero with a blank. When 
the position would hold any nonzero digit, the 
Y code acts as a 9 code. 

The 9 code is used for each position that must hold a digit. 
Leading zeros in the integer subfield and trailing zeros in 
the fractional subfield are represented as zeros. 

The Z code represents a digit position. The Z code sup- 
presses any leading zero and replaces it with a blank. The 
Z code cannot be used in the same field as the * code. The 
Z code cannot be used in the same field as a drifting 
sequence of S + - or $ codes. The Z code also cannot be 
used to the right of any 9 Y T I or R code. Usually, a 
number of Z codes precede a number of 9 codes in the 
integer subfield. If a Z code appears in any position in the 



fractional subfield, all digit positions in the integer and 
fractional subfields must contain the Z code. When all 
integer and fractional digit positions contain the Z code, 
suppression of leading zeros in the fractional subfield is not 
performed unless all positions in the number are zero digits. 
If all positions are zero digits, the character value of the 
entire picture is a string of blanks. 

The * code represents a digit position. The * code replaces 
any leading zero with an asterisk. The * code cannot be 
used in the same field as the Z code. The * code cannot be 
used in the same field as a drifting sequence of S + - or $ 
codes. The * code also cannot be used anywhere to the right 
of the code 9 Y T I or R. Usually, a number of * codes 
precede a number of 9 codes in the field. If a * code 
appears in any position in a fractional subfield, all digit 
positions in the integer and fractional subfields must contain 
the * code. When all integer and fractional digit positions 
contain the * code, replacement of leading zeros in the 
fractional subfield is not performed unless all positions in 
the number are zero digits. If all positions are zero digits, 
the character value of the entire picture is a string of 
asterisks. 



The Y code represents a digit position but suppresses any 
zero by replacing it with a blank. The Y code can appear in 
any position where unconditional replacement of a zero is 
required. 

Examples of digit codes are shown in figure 7-17. 



Arithmetic 


Picture 


Character 


Value 


Specification 


Value 


120 


999 


120 


2 


999V 


002 


1.34 


999V 


001 


5 


ZZ9 


AA5 


19.65 


ZZ9V 


A19 


1256 


ZZZZ 


1256 





(4)Z 


AAAA 


6 


tt#*Q 


***6 


2.5 


**!/** 


*250 


570 


YYYY 


A57A 


45.0578 


YYYVY 


A45A 


10005 


YYYYYY 


A1AAA5 



Figure 7-17. Digit Codes and Decimal Point Code Examples 

Decimal Point Code 

The decimal point code is the following: 



specifies the assumed location of the decimal point 
in the arithmetic value. The V code separates the 
integer and fractional subfields. The V code does 
not specify insertion of an actual decimal point 
character. 



The V code cannot appear more than once in the field. If no 
V code appears, a V code is assumed at the right end of the 
field. The position of the V code establishes digit codes to 
the left as being in the integer subfield and digit codes to 
the right as being in the fractional subfield. Examples of 
the V code are included in figure 7-17. 
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Sign Position Codes 

The sign position codes represent a sign position in the 
character value of the picture. The sign position codes are 
the following: 

S indicates a sign represented as + (value>=0) or - 
(value<0). A sequence of S codes represents a 
drifting + or -. 

+ indicates a sign represented as + (value>=0) or 
blank. A sequence of + codes represents a 
drifting +. 

indicates a sign" represented as - (value<0) or blank. 
A sequence of - codes represents a drifting -. 

Each picture can have only one code for the sign. The sign 
code can be a sign position code (S + or -) or one of the 
other sign codes (T I R CR or DB). A sign position code 
must appear to the left or right of all digit codes in the 
field. Examples of sign position codes are shown in 
figure 7-18. 



subfield must be included in the drifting sequence. The 
V code terminates movement of the sign to the right, except 
when the value of the picture is zero, in which case the 
drifting sequence is represented as all blanks. 

Insertion codes within the drifting sequence (or following the 
drifting sequence) are considered part of the sequence and 
can be altered as appropriate. If an insertion code appears 
more than one position to the left of the first significant 
digit, the insertion code becomes a blank. If the insertion 
code is immediately to the left of the first significant digit, 
the insertion code is replaced with the drifting symbol. If 
the insertion code appears to the right of the first 
significant digit, the insertion code operates normally. 
Refer to the description of insertion codes later in this 
section. 

If a fractional value between -1.0 and 0.0 is assigned to a 
picture and the fractional digits are truncated, the sign 
remains negative because evaluation of the sign occurs 
before any necessary truncation. 



Arithmetic 
Value 

1367 
5.0 
-12.0 
-3 

553 
-152 

135 
135 
135 
-135 

1250 
-8841 
145 



Picture 
Specification 

S99999 
999S 
+9999 
9999- 

SSSSS99 
9 

T99 
919 
99R 
99R 

(6)ZCR 

ZZZZZZCR 

ZZZZZDB 



Character 
Value 

+01367 
005+ 
A 0012 
0003- 

AAA+553 
AA-152 

A35 
1C5 
135 
13N 

AA1250AA 
AA8841CR 
AA145AA 



Figure 7-18. Sign Codes Examples 



The sign position code can be static or drifting. Static use 
reserves one position in the character value for the sign 
associated with the arithmetic value of the pictured numeric 
item. Drifting use involves a sequence of occurrences of the 
same sign code. The S + - or $ code can be used as a drifting 
sequence, but only one drifting sequence can appear in the 
field. Jf a drifting $ is used, no drifting sign can be used in 
the same field. 

A drifting sign cannot appear in the same field with any 
Z code or * code. The drifting sequence must appear to the 
left of all digit codes (9 and Y) in the field. The sign 
position moves to the right through leading zeros. Except 
for the first position, all positions in the drifting sequence 
can contain a significant digit. The sign occupies the 
position immediately to the left of the first significant digit. 
All positions to the left of the sign in the drifting sequence 
are supplied as blanks. If the drifting sequence occupies all 
digit positions and the value is zero, the entire field 
becomes a sequence of blanks. 

The drifting sequence can contain the V code and can 
contain insertion codes (/ , . or B). If the drifting sequence 
contains the V code, all digit positions in the fractional 



Signed Digit Codes 

The signed digit codes specify that the sign of the 
arithmetic value and the value of a digit are to be 
represented as a single character. Combination of a sign 
and a digit yields an overpunch digit that is represented as a 
character. The signed digit codes are the following: 

T indicates that a 12-punch (value >=0) or 11 -punch 
(value<0) is overpunched in the digit position. 

I indicates that a 12-punch is overpunched in the 
digit position (value >=0). 

R indicates that an 11-punch is overpunched in the 
digit position (value <0). 

Each picture can have only one code or drifting code for the 
sign. The T I or R code can be used, or one of the other sign 
codes (S + - CR or DB). When a signed digit code is used, 
the value of the digit and the sign are contained in any 
chosen digit position. Examples of signed digit codes are 
included in figure 7-18. 

The character represented by the combination of a digit and 
12-punch or 11-punch is shown in table 7-9. 

TABLE 7-9. SIGNED DIGIT CODE REPRESENTATIONS 



Digit 


Digit with 
12-punch 


Digit with 
11-punch 





< 


1 


1 


A 


J 


2 


B 


K 


3 


C 


L 


4 


D 


M 


5 


E 


N 


6 


F 


O 


7 


G 


P 


8 


H 


Q 


9 


I 


R 
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Sign Suffix Codes 



Insertion Codes 



The sign suffix codes for credit and debit are intended for 
use in financial reports. The sign suffix codes are the 
following; 

CR indicates that the last two characters of the 

field are 'CR' (value<0) or two blanks 
(value>=0). 

DB indicates that the last two characters of the 

field are 'DB' (value<0) or two blanks 
(value>=0). 

The credit or debit indication always appears at the end of 
the character value; the CR or DB code must be to the right 
of all digit positions in the field. Each field can have only 
one indication of sign. The CR or DB code can be used, or 
one of the other sign codes (S + - T I or R). Examples of 
sign suffix codes are included in figure 7-18. 



Currency Code 

The currency code is the following: 

$ supplies a dollar sign in the character value of the 
picture. A sequence of $ codes represents a 
drifting $. 

The currency code $ can be used in a static or drifting 
manner. Static use involves one occurrence of the $ code to 
the left or to the right of all digit positions in the field. 
Drifting use of the $ code involves a sequence of $ codes. 
Examples of the currency code are shown in figure 7-19. 



Arithmetic 
Value 

51 
23 

663 



Picture 
Specification 

$zzzz 
zzzzz$ 

(6)$9 



Character 
Value 

$AA51 
AAA 23$ 

AAA$663 



Figure 7-19. Currency Code Examples 



A drifting sequence of $ codes must appear to the left of all 
digit codes. Only one drifting sequence can be used in a 
field; the drifting dollar sign cannot be used if a drifting sign 
(S + or -) is used. The drifting dollar sign also cannot appear 
in any field containing a Z code or * code. The dollar sign 
moves to the right through leading zeros. Except for the 
first position, all positions in the drifting sequence can 
contain a significant digit. The dollar sign occupies the 
position to the left of the first significant digit. All 
positions to the left of the dollar sign in the drifting 
sequence are supplied as blanks. If the drifting sequence 
occupies all digit positions and the value is zero, the entire 
field becomes a sequence of blanks. 

The drifting sequence can contain the V code and can 
contain insertion codes (/ , . or B). The discussion of the 
V code and insertion codes used in a drifting sequence 
appears under Sign Position Codes. 



The insertion codes cause a character to be inserted into the 
character value of the pictured numeric item. The insertion 
codes are the following: 

/ indicates insertion of a slash '/' character. 
, indicates insertion of a comma ',' character, 
indicates insertion of a period '.' character. 
B indicates insertion of a blank ' ' character. 



Insertion codes do not indicate digit positions. The . code 
does not specify the position of the assumed decimal 
point. It can be used with the V picture code to cause the 
assumed decimal point to be represented as a character. 
An insertion code which is immediately preceded by a Z 
picture code is represented as a blank when the Z code 
causes a leading zero to be suppressed. An insertion code 
which is immediately preceded by a * picture code is 
represented as * when the * picture code causes a leading 
zero to be replaced. Examples of insertion codes are 
shown in figure 7-20. 



Arithmetic 


Picture 


Character 


Value 


Specification 
Y9/Y9/99 


Value 
12/25/77 


122577 


12.578 


999V.99 


012.57 


15.36 


ZZZV,ZZ 


A 15,36 


12567.03 


ZZZ,ZZZV.99 


A 12,567.03 


6475.77 


ZZZ.ZZZV,99 


AA6.475,77 


54.7 


SBB99V.999 


+AA54.700 


6 


Z,ZZZV.ZZBDB 


AAAA6.00AAA 


0.25 


ZZZV.99 


AAA.25 ' 


0.25 


ZZZ.V99 


AAAA25 


00345.67 


ZZ,ZZ9V.99 


AAA345.67 


00345.67 


*V*9V.99 


***345.67 



Figure 7-20. Insertion Codes Examples 



The / code inserts a slash in the character value of the 
picture. 

The , code inserts a comma in the character value of the 
picture. 

The . code inserts a period in the character value of the 
picture. The . code must not be confused with the V code 
that specifies the assumed decimal point. The V code can 
only appear once, while multiple . insertion codes can be 
used. Usually, the . code is used immediately after the V 
code, since the assumed decimal point is not represented 
in the character value of the picture. 



The B code inserts a blank in the 
picture. 



character value of the 



Scaling Factor Code 

The scaling factor code is the following: 

F(factor) indicates that the decimal digits in the 
character value must represent a scaled 
arithmetic value. The factor is an 
optionally signed decimal integer. 
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The F code must appear at the right end of the field. The 
scaling factor indicates that the arithmetic value is divided 
by ten to the power of the sealing factor, that is, 
(value/(10 **f actor)), before being used to create the char- 
acter value. If the arithmetic value is subsequently 
required, interpretation of the character value for the 
arithmetic value involves multiplying the decimal value in 
the character string by ten to the power of the scaling 
factor, that is, (value*(10**factor)). The scaling factor 
must be in the range -255 to 255. Examples of the scaling 
factor code are shown in figure 7-21. 



TABLE 7-10. CODES FOR PICTURED NUMERIC 
FLOATING POINT 



Arithmetic 
Value 

1800 
1.35 



Picture 
Specification 

9999F(2) 
999999F(-3) 



Character 
Value 

0018 
001350 



Figure 7-21. Scaling Factor Code Examples 



PICTURED NUMERIC FLOATING POINT 

A pictured numeric floating point item has a character value 
representing a FLOAT DECIMAL value on which editing has 
been performed. The character value contains the decimal 
digits and all edited characters including insertion char- 
acters. The character value does not include the assumed 
decimal point in the mantissa but can include inserted 
decimal points. 

The picture specification for a pictured numeric floating 
point item consists of two fields. The picture field for the 
mantissa is similar to the field used for a fixed point item 
and can contain most of the picture codes available for a 
numeric fixed point item. The picture field for the exponent 
can contain a more restricted set of picture codes. The two 
fields are included in the same picture specification; the 
mantissa field is followed by the E or K exponent code that 
precedes the exponent field. The available picture codes are 
shown in table 7-10. 



Edit through Picture 

An arithmetic value that is assigned to a pictured numeric 
variable or written out through a P format item is edited 
through the picture specification. The arithmetic value is 
used to create a character value that can include digits, 
blanks, a sign indication for the mantissa, and inserted 
characters, as well as an exponent indication and a sign 
indication for the exponent. The created character value 
depends on the picture codes specified. The picture codes 
indicate a character value created from a FLOAT DECIMAL 
arithmetic value. 



Interpret for Arithmetic Value 

A pictured numeric item is stored as a character value and 
can be interpreted for the arithmetic value when the 
arithmetic value is required for the purpose of operations or 
assignment. The character value is interpreted for the 
arithmetic value when an input value is read in through a 
P format item. The arithmetic value is FLOAT DECIMAL 
with a precision indicated in the picture specification. 



Codes for the Mantissa 

For the mantissa, digit codes (9 Z * or Y) can be specified in 
the same way as for a pictured fixed point numeric item. 



Category 


Code 


Use 




Mantissa 


Digit codes 


9 


Digit 




Z 


Leading zero suppression digit 




* 


Leading zero replacement digit 




Y 


Zero suppression digit 


Decimal point 
code 


V 


Assumed decimal point 


Sign position 
codes 


S 

+ 


Sign + or - (can drift) 
Sign if + (can drift) 




- 


Sign if - (can drift) 


Signed digit 


T 


Overpunch digit with + or - 


codes 


I 


Overpunch digit if + 




R 


Overpunch digit if - 


Insertion codes 


/ 

J 


Inserted slash 
Inserted comma 
Inserted period 




B 


Inserted blank 


Exponent 


Exponent codes 


E 


Start exponent field (supply E) 




K 


Start exponent field 
(suppress E) 


Digit codes 


9 


Digit 




Z 


Leading zero suppression digit 




* 


Leading zero replacement 




Y 


Zero suppression digit 


Sign position 
codes 


S 

+ 


Sign + or - 
Sign if + 




- 


Sign if - 


Signed digit 


T 


Overpunch digit with + or - 


codes 


I 


Overpunch digit if + 




R 


Overpunch digit if - 


Insertion 
codes 


/ 

> 


Inserted slash 
Inserted comma 




• 


Inserted period 




B 


Inserted blank 



The assumed decimal point can be indicated with the V code. 
The sign can be represented with a sign position code 
(S + or -) or a signed digit code (T I or R). A drifting 
sequence of the sign code S + or - can be used. Insertion 
codes (/ . , B) can be used. The codes $ CR DB and F cannot 
be used and are used only for pictured numeric fixed point 
items. 
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The value of the mantissa is adjusted so that the first 
significant digit appears in the first available digit position, 
even if leading zero suppression or leading zero replacement 
is specified with Z codes or * codes. 



Codes for the Exponent 

The exponent code separates the mantissa field and the 
exponent field. The exponent codes are the following: 

E starts the exponent field and inserts the exponent 
indicator E. 



K starts the exponent field but suppresses the expon- 
ent indicator E. 

Either the E code or K code must be used in any floating 
point picture specification. The exponent field follows the 



E code or K code. The digit codes (9 Z * or Y) can be used. 
A sign can be represented with a sign code (S + or -) or a 
signed digit code (T I or R). The sign code S + or - cannot 
be used in a drifting sequence. Insertion codes (/ , . or B) 
can be included. Examples of pictured numeric floating 
point items are shown in figure 7-22. 



Arithmetic 
Value 

1.1E1 

3.456E3 

3.4E-7 

7.7E-1 

.352E-12 



Picture 
Specification 

99999ES99 

ZZZZV.9ES99 

9V.99BBES99 

V.(4)9K-<3)9 

V.9999KB-99 



Character 
Value 

11000E-03 

3456.0E+00 

3.40AAE-O7 

.77004000 

.3520A-12 



Figure 7-22. Pictured Numeric Floating Point Examples 
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INPUT/OUTPUT 
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This section describes the available PL/I data transmission 
operations. Input/output operations are either stream I/O 
operations or record I/O operations. 

Stream I/O operations involve the input or output of streams 
of legible characters. Data items transmitted with stream 
I/O operations can be converted from one computational 
type to another, and can be formatted under program 
control. The two methods of stream transmission are list- 
directed I/O and edit-directed I/O. The stream I/O state- 
ments are 



GET 
PUT 



Stream input 
Stream output 



Record I/O operations involve the input or output of 
complete records transmitted in internal form. No compu- 
tational conversions occur, and no formatting of data items 
is possible. The record I/O statements are 

READ Record input 

WRITE Record output 

REWRITE Record replacement 

DELETE Record deletion 

LOCATE Record output 

Stream I/O operations and record I/O operations (except for 
stream I/O with the STRING option) are performed on files 
that are opened and closed during program execution. The 
I/O statements that can be used to open and close files are 



OPEN 
CLOSE 



Open file 
Close file 



Various conditions can be raised during input/output opera- 
tions. The possible I/O conditions are UNDEFINEDFILE, 
ENDFILE, ENDPAGE, KEY, RECORD, and TRANSMIT. 



FILES 

The file constants in a program have no intrinsic connection 
to CYBER Record Manager (CRM) local files. Association 
of a particular file constant with a CRM file is made when 
the file constant is opened during program execution. A file 
is defined as a file constant that is open, together with the 
completed file description attributes and the associated 
CRM file. 



FILE OPENING 

File opening is the process of establishing all necessary 
information so that the file can be used. If a file constant is 
not open, no association with a CRM file exists. When the 
file constant is opened, an association exists. When the file 
is closed, the established association is discarded. Sub- 
sequent reopening of the file constant can establish asso- 
ciation with a different CRM file. Attributes specified in 
the declaration of a file constant cannot be altered during 



program execution. When a file constant is opened, a 
complete set of file description attributes is established for 
the file, the file constant is associated with a CRM file (the 
file title is established), and all necessary CRM file 
processing options are established from ENVIRONMENT 
information and defaults. 

A file can be opened explicitly by an OPEN statement, or 
can be opened implicitly by execution of a stream or record 
I/O statement. An attempt to open a file constant is 
ignored if the file constant is already open. 

FILE DESCRIPTION 

The available file description attributes are STREAM, 
RECORD, INPUT, OUTPUT, UPDATE, PRINT, 
SEQUENTIAL, DIRECT, KEYED, and ENVIRONMENT. The 
ENVIRONMENT attribute specifies CRM file processing 
options. A file constant can be declared with file 
description attributes in the DECLARE statement. 

If a file is opened explicitly by an OPEN statement, options 
in the OPEN statement can be used to supply file description 
attributes. The attributes specified in the OPEN statement 
are combined with the attributes specified in the declaration 
of the file constant. 

If a file is opened implicitly by execution of a stream or 
record I/O statement, the statement implies file description 
attributes that are combined with the attributes specified in 
the declaration of the file constant. The attributes implied 
by the statement that causes implicit opening of the file are 
shown in table 8-1. 



TABLE 8-1. FILE DESCRIPTION FROM 
IMPLICIT OPENING 



Input/Output Statement 
Causing Implicit Opening 


Implied File 
Description Attributes 


GET 
PUT 
READ 

WRITE 

REWRITE 

DELETE 

LOCATE 


STREAM INPUT 

STREAM OUTPUT 

RECORD (if the declaration 
does not specify UPDATE, 
INPUT is also implied) 

RECORD (if the declaration 
does not specify UPDATE, 
OUTPUT is also implied) 

RECORD UPDATE 

RECORD UPDATE 

RECORD OUTPUT 



Certain file description attributes imply other file descrip- 
tion attributes. PRINT implies STREAM and OUTPUT. 
UPDATE, SEQUENTIAL, DIRECT, or KEYED implies 
RECORD. DIRECT implies KEYED. 
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In some cases, a default file description attribute can be 
supplied. If STREAM or RECORD is not indicated, STREAM 
is supplied. If INPUT, OUTPUT, or UPDATE is not 
indicated, INPUT is supplied. If SEQUENTIAL or DIRECT is 
not indicated for a record file, SEQUENTIAL is supplied. If 
a file constant named SYSPRINT has the attributes STREAM 
and OUTPUT, PRINT is supplied. 

The completed set of file description attributes must be a 
consistent set. If conflicting attributes exist in the set, the 
UNDEFINEDFILE condition is raised. In the completed set, 
STREAM and RECORD are alternative types of file opera- 
tions. INPUT, OUTPUT, and UPDATE are alternative types 
of usage for the file. INPUT and OUTPUT can apply to a 
stream file or a record file. UPDATE can apply only to a 
record file. PRINT can apply only to a stream output file. 
For a record file, SEQUENTIAL and DIRECT are alternative 
types of access to records. KEYED can apply to a 
sequential record file or a direct record file. 

The completed file description attributes are shown in 
table 8-2 for all consistent combinations of attributes, 
including declared attributes, and additional attributes 
specified in the OPEN statement or implied by the I/O 
statement that implicitly opens the file. The 
ENVIRONMENT attribute can apply to any consistent 
combination shown in the table. Section 9, CYBER 
Record Manager Interface, describes the available CRM 
file processing options for each attribute combination. 



STREAM I/O 

In stream I/O operations, the data in the file is considered as 
a continuous stream of characters organized into lines. A 
file with the PRINT attribute can also be organized intc 
pages. Stream I/O statements specify the input/output oi 
data items and direct any editing or formatting of the data. 
Stream I/O operations are different from record I/O opera- 
tions described later in this section. 



STREAM FILE STATUS 

Each file constant that can be used for a stream file carries 
the following information as the result of program 
compilation: 

• Declared file description attributes, if any. 

• Declared ENVIRONMENT, if any. 

When the file constant is opened either explicitly by OPEN 
statement or implicitly by execution of a stream I/O 
statement, the following information is added: 

• The file title, either supplied in the TITLE option of the 
OPEN statement or created from the file constant. 

• Additional attributes specified on the OPEN statement 
or implied by the statement that implicitly opens the 
file constant. 



FILE TITLE AND LOCAL FILE NAME 

When a file constant is opened, a file title is established. 
The file title becomes the local CRM file name unless the 
title is too long to be a legal CRM file name. 

The local CRM file name must consist only of letters and 
digits, must begin with a letter, and must be 1 to 7 
characters long. If the file title is longer than 7 
characters, the local file name is constructed from the 
first four and last three characters of the file title. For 
example, the file title LONGTITLE would specify the 
local CRM file LONGTLE. 

The file title can be specified in one of three ways. If the 
file is opened explicitly with an OPEN statement, the 
TITLE option can be used to specify the file title. If the 
file is opened with an OPEN statement and the TITLE 
option is not used, the file constant specifies the file 
title. If the file is opened implicitly by execution of an 
I/O statement, the name of the referenced file constant 
specifies the file title. 

Treatment of the file title is identical to the treatment of 
external names in general. The file title must not 
duplicate the local file name of an open file. Note that 
the file titles TEST1INPUT and TEST2INPUT would cause 
an invalid duplication of the local file name TESTPUT. A 
local file name can duplicate the name of an external 
variable, named constant, or condition without conflict. 

|*.;f f~P; := note '/^-} 'f?[^t §:E : i ! : 

Two special cases exist for the file title. If a 
file constant named SYSPRINT with the 
attributes STREAM OUTPUT PRINT is opened 
without an explicit TITLE option, the file title 
OUTPUT is used. If a file constant named SYSIN 
with the attributes STREAM INPUT is opened 
without an explicit TITLE option, the file title 
mi'lTT is used. 



• Any additional attributes required to complete the set 
of file description attributes for the file. 

• Creation of a file information table (FIT) used by 
CRM. The ENVIRONMENT attribute specifies file 
processing options that are used for option fields in 
the FIT (see section 9). 

• The line size for the file is established. If the OPEN 
statement specifies the LINESIZE option, that line size 
is used. If LINESIZE is not specified, the following line 
size is used: 

8!) stkl; v.; in pit 

80 stream output 

136 stream output print 

Line size is the maximum number of characters per line 
of user data. For a PRINT file, the line size is the 
maximum number of printable characters in each line. 
The line size does not count any carriage control 
information for the line. A line size specified with the 
ENVIRONMENT attribute overrides the LINESIZE 
option of the OPEN statement or the default line size 
shown. 

• The current column position is established. Column 
position is set to 1 when the file constant is opened and 
reset to 1 for each new line. The current column 
position is the number of characters already trans- 
mitted in the line, plus one, 

• For a PRINT file only, the page size is established. If 
the OPEN statement specifies the PAGESIZE option, 
that page size is used. If page size is not specified, the 
default page size is 60 lines. The page size establishes 
the maximum number of lines that can be written on a 
page before the ENDPAGE condition is raised. The 
ENDPAGE condition is raised when the current line 
number is incremented and the increment causes the 
current line number to exceed the maximum page size. 
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TABLE 8-2. COMPLETED FILE DESCRIPTION 



Combinations of Declared Attributes and 
Attributes Specified or Implied in File Opening 


Resulting Completed File Description 


STREAM 


INPUT 








STREAM 


INPUT 






STREAM INPUT 


(no attributes supplied) 








STREAM 


OUTPUT 
OUTPUT 






STREAM OUTPUT 


STREAM 


OUTPUT 




PRINT 




STREAM 


OUTPUT 




PRINT 
PRINT 
PRINT 


STREAM OUTPUT PRINT 


RECORD 


INPUT 


SEQUENTIAL 






RECORD 


INPUT 








RECORD 




SEQUENTIAL 




RECORD INPUT SEQUENTIAL 


RECORD 


INPUT 


SEQUENTIAL 
SEQUENTIAL 






RECORD 


OUTPUT 


SEQUENTIAL 






RECORD 


OUTPUT 
OUTPUT 


SEQUENTIAL 




RECORD OUTPUT SEQUENTIAL 


RECORD 


UPDATE 


SEQUENTIAL 






RECORD 


UPDATE 
UPDATE 
UPDATE 


SEQUENTIAL 




RECORD UPDATE SEQUENTIAL 


RECORD 


INPUT 


SEQUENTIAL 


KEYED 




RECORD 


INPUT 




KEYED 




RECORD 




SEQUENTIAL 


KEYED 




RECORD 


INPUT 
INPUT 


SEQUENTIAL 
SEQUENTIAL 


KEYED 
KEYED 
KEYED 
KEYED 
KEYED 


RECORD INPUT SEQUENTIAL KEYED 


RECORD 


OUTPUT 


SEQUENTIAL 


KEYED 




RECORD 


OUTPUT 
OUTPUT 


SEQUENTIAL 


KEYED 
KEYED 


RECORD OUTPUT SEQUENTIAL KEYED 




OUTPUT 




KEYED 




RECORD 


UPDATE 


SEQUENTIAL 


KEYED 




RECORD 


UPDATE 
UPDATE 
UPDATE 


SEQUENTIAL 


KEYED 
KEYED 
KEYED 


RECORD UPDATE SEQUENTIAL KEYED 


RECORD 


INPUT 


DIRECT 


KEYED 




RECORD 


INPUT 


DIRECT 






RECORD 




DIRECT 


KEYED 




RECORD 


INPUT 
INPUT 


DIRECT 
DIRECT 
DIRECT 
DIRECT 
DIRECT 


KEYED 
KEYED 


RECORD INPUT DIRECT KEYED 


RECORD 


OUTPUT 


DIRECT 


KEYED 




RECORD 


OUTPUT 
OUTPUT 
OUTPUT 


DIRECT 
DIRECT 
DIRECT 


KEYED 


RECORD OUTPUT DIRECT KEYED 


RECORD 


UPDATE 


DIRECT 


KEYED 




RECORD 


UPDATE 
UPDATE 
UPDATE 


DIRECT 
DIRECT 
DIRECT 


KEYED 


RECORD UPDATE DIRECT KEYED 
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• For a PRINT file only, the current line number is 
established. The current line number is set to 1 when 
the file constant is opened. The current line number is 
the number of complete lines written since the begin- 
ning of the page, plus one. 

• For a PRINT file only, the current page number is 
established. The current page number is set to 1 when 
the file constant is opened. The current page number is 
incremented whenever a new page is established and 
can be reset with the PAGENO pseudovariable. 

The following I/O conditions can be raised during stream I/O 
operations using GET and PUT statements with the FILE 
option: 



UNDEFINEDFILE 

ENDFILE 

ENDPAGE 

TRANSMIT 



Failure to open a file correctly. 

End of input file exceeded. 

End of page exceeded on a print 
file. 

Data transmission error. 



In addition, the SIZE or CONVERSION condition can be 
raised during list-directed or edit-directed operations in- 
volving conversion of data. 

STREAM I/O STATEMENTS 

The GET and PUT statements are used for stream I/O. The 
FILE and STRING options are mutually exclusive. The GET 
statement syntax and the PUT statement syntax are shown 
in section 12, Statements. The FILE option is used for data 
transmission to and from stream files on external 
input/output devices. The STRING option is used for data 
transmission to and from character strings in internal 
storage. If both the FILE option and the STRING option are 
omitted from a GET or PUT statement, a FILE option is 
assumed. 



GET and PUT statements with the FILE option are used for 
stream files. The available GET and PUT statements for 
each possible set of file description attributes are shown in 
table 8-3. 

GET and PUT statements with the STRING option are used 
for character string transmission. The available GET and 
PUT statements are shown in table 8-4. 

The FILE option specifies the stream file to be used for the 
input/output operation. If both the FILE option and the 
STRING option are omitted from a GET or PUT statement, a 
FILE option of the form FILE(SYSIN) is supplied for GET and 
a FILE option of the form FILE(SYSPRINT) is supplied 
for PUT. 

The STRING option specifies the character string value from 
which input is taken, or the character variable or pseudo- 
variable to which output is assigned. The STRING option is 
used only for internal manipulation of string values, and no 
input/output is performed on any external I/O device. 

The COPY option specifies that all input data is to be copied 
to an output file. The COPY option can be used for GET 
FILE or GET STRING operations. Effectively, the COPY 
option provides a record of all input data used by the 
statement. If a COPY option appears with no file- 
reference, COPY(SYSPRINT) is assumed. The COPY option 
uses all input data accessed by the statement and writes a 
copy to the output file. The input stream is copied intact, 
with no editing of the input data and no positioning of the 
output f ile. Data on the COPY file is separated into lines in 
accordance with the line size of the COPY file. The COPY 
file must be a STREAM OUTPUT or STREAM OUTPUT 
PRINT file. If the COPY file is a print file, the ENDPAGE 
condition can be raised. 

The SKIP option is used only for GET FILE or PUT FILE 
operations to specify positioning of the input file or output 
file. For a GET FILE operation, the SKIP option indicates 
that the input file is to be positioned forward the specified 



TABLE 8-3. STREAM I/O STATEMENTS FOR STREAM FILES 



Stream File Attributes 



STREAM INPUT 



STREAM OUTPUT 



STREAM OUTPUT PRINT 



Available I/O Statements 



[FILE-optionJ 



GET FILE-option 



LIST-option 
EDIT-option 



[SKIP-option] [COPY-option] 



PUT^E-cption^^ [SKIP-option] 



PU^ILE-option^^] 



SKIP-option 
PAGE-option 
LINE-option 
PAGE-option LINE-option 



tt. 



T if omitted, FILE(SYSIN) is assumed. 



if omitted, FILE(SYSPRINT) is assumed. 



TABLE 8-4. STREAM I/O STATEMENTS FOR STRING OPERATIONS 



String Operation 



String Input 



String Output 



Available I/O Statements 



GET STRING-option {^^l^fon} [COPY-option] 



PUT STRING^ption ffi^™,} 
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number of lines. The ENDFILE condition can be raised. For 
a PUT FILE operation, the SKIP option indicates that the 
current line is ended and the output file is positioned 
forward the specified number of lines. If the output file is a 
print file, the ENDPAGE condition can be raised* 

The PAGE option is used only for PUT FILE operations to 
establish a new page on the output print file. The current 
page number is incremented by 1, and the next available 
print position becomes column position 1 in line number 1 on 
the new page. 

The LINE option is used only for PUT FILE operations to 
establish a new line on the output print file. The LINE 
option specifies the required line position on the page and is 
evaluated with respect to the current line position. If the 
new line number is greater than the current line number but 
less than the page size, lines on the page are skipped until 
the required position is reached. If the new line number is 
less than the current line number, or if the new line number 
is greater than the established page size, the remaining lines 
on the page are skipped and the ENDPAGE condition is 
raised. If the new line number is the same as the current 
line number, the required line position is already the next 
available line position and the LINE option has no effect. 

The LIST option indicates a list-directed I/O operation. 
List-directed I/O involves transmission of data in accor- 
dance with the data type of each target or source value. 

The EDIT option indicates an edit-directed I/O operation. 
Edit-directed I/O involves transmission of data in accor- 
dance with the format specifications supplied in the 
program. 

Stream I/O operations without the LIST option or the EDIT 
option are file positioning operations. If the LIST option or 
EDIT option is used, list-directed I/O or edit-directed I/O 
operations are indicated. 



LIST-DIRECTED I/O 

In list-directed I/O, each data item in the stream is 
interpreted or created according to the data type of the 
target or the source value, rather than according to a 
format specification supplied in the program. Each list- 
directed I/O statement can transmit one or more data items. 



The input stream is treated as a sequence of literal 
constants separated by blanks or commas. For each input- 
target, the next constant in the input stream is obtained, 
interpreted, and assigned. The following forms are 
recognized: 

• Arithmetic constant, as described in section 3, Data 
Elements. The arithmetic constant can be preceded by 
a sign + or -. Blanks are not permitted between the 
sign and the constant. 

• Simple character constant, as described in section 3. 
The character constant can include blanks or commas as 
part of the string and can include the apostrophe 
character (represented by two consecutive apostrophes). 

• Character constant not enclosed in apostrophes. The 
character constant is treated as an evaluated character 
constant in the program. The constant cannot include 
any blanks or commas. The constant can include the 
apostrophe character (represented by a single 
apostrophe character). To avoid confusion with the 
standard character constant form, this form of char- 
acter constant must not begin with an apostrophe. 

• Simple bit constant, as described in section 3. In 
addition, the bit constant can include blanks or commas 
between the apostrophe that begins the constant and 
the sequence of specified bits, or between the sequence 
of specified bits and the second apostrophe. Blanks and 
commas are not allowed in the sequence of specified bit 
values. No blank is allowed between the second 
apostrophe and the radix factor B. 

• Character constant with bad parse. The character 
constant is a standard character constant enclosed in 
apostrophes, but additional characters follow the 
apostrophe that would normally end the character 
constant. Until a blank or comma is encountered in the 
input stream, any additional characters are treated as a 
continuation of the constant. 

The terminator used to separate source items in the input 
stream is the comma or the blank. The following can 
represent a single terminator separating source items: 

• A single blank. 



List-Directed Input 

The LIST option specifies one or more targets to which data 
values are assigned by GET statement execution. Each 
tai get can be a ewrtpuutUonal variable or a pseudovariable. 
hiach taigfil must be «!Hlar. 

When a GET statement is executed, the specified list of 
input-targets is processed in order. The processing order is 
left to right, except as controlled by embedded-do specifi- 
cations. The input-targets at the same parenthesis level as 
the embedded-do are processed left to right once for each 
iteration of the embedded-do. For example, the 
specification 

(A(I), B(I) DO I = 1 TO 3) 

is processed in the order 

A(l) B(l) A(2) B(2) A(3) B(3) 

The statement terminates normally when the input-target 
list is exhausted. 



• A number of consecutive blanks. 

• A single comma, preceded by zero or more blanks and 
followed by zero or more blanks. 

For each target item, the input stream is advanced by at 
least one character from its current position. Line 
boundaries in the input stream are ignored. 

An input field is considered to be null if two commas are 
separated only by zero or more blanks. If the first nonblank 
character in the input stream is a comma, the first input 
field is considered null. If the input field is null, no value is 
assigned to the input target item and execution continues 
with evaluation of the next target item. 

If the input field is not a valid constant, CONVERSION is 
raised. The new value of the ONSOURCE builtin function is 
the input field that raised CONVERSION. If an end of file 
is encountered before an input field is found, the ENDFILE 
condition is raised. If the end of the STRING option 
character string is reached before an input field is obtained, 
the ERROR condition is raised. 
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Any necessary computational conversion can be performed 
to convert the value contained in each input field to another 
computational type suitable for assignment to the target 
item. The computational conversions are described in 
section 7, Data Manipulation. 



List-Directed Output 

The LIST option specifies the source values to be trans- 
mitted to the output stream by PUT statement execution. 
Each source value can dc a computational expression. ~ . 



When a PUT statement is executed, the specified list of 
source values is processed in order. The processing order is 
left to right, except as controlled by embedded-do specifi- 
cations, which are processed in the same way as for list- 
directed input. The statement terminates normally when 
the list of source values is exhausted. 

Each source value is converted, as necessary, to a character 
string for transmission to the output stream. Each source 
value appears in the output stream exactly as converted, 
except in the following cases: 

• If the source value is a bit string, the converted string 
is modified to have the form of a bit constant. 
Enclosing apostrophes are supplied, and the character B 
is appended. 

• If the source value is a character string or pictured 
character item, and if the output stream is not being 
transmitted to a PRINT file, then the value is modified 
to have the form of a character constant. Enclosing 
apostrophes are supplied, and each contained apostrophe 
is replaced by a pair of consecutive apostrophes. For a 
PRINT file, the converted string is not modified. 

The length of the output field is the length of the converted 
character string and any added characters, including added 
apostrophes (if any) and an added radix factor B (if any). 
For a PUT FILE operation, if there are not enough positions 
remaining in the current line for the output field, a SKIP(l) 
operation is performed to skip to position 1 of the next line. 
For a PUT FILE operation, if there are not enough positions 
in an entire line for the output field, the output field is split 
as necessary and transmitted to the current and subsequent 
lines. If there are not enough positions remaining in a 
STRING option character string for the output field, the 
ERROR condition is raised. 

Each source value transmitted to the output stream is 
automatically positioned according to system-defined tabs. 



EDIT-DIRECTED I/O 

For edit-directed transmission, a format is specified for 
each data item in the data stream. A GET statement can 
specify input of one or more data items. For each target 
item, a format item in a format list specifies the characters 
that are to be obtained from the input stream and the 
interpretation of the characters. A PUT statement can 
specify output of one or more data items. For each source 
item, a format item specifies the form of the transmitted 
data in the output stream. 

In edit-directed operations, the data stream is not con- 
sidered to have separators between data items for input, and 
no separators are written during output. The program has 
complete format control over access to and interpretation 
of characters in the input stream, and over construction of 
characters in the output stream. 



Edit-Directed Input 

The EDIT option specifies one or more targets to which data 
values are assigned by GET statement execution. Each 
target can be a computational variable or pseudovariable. 
Bciih ts^rt must be srtlM. A sequence of format-items is 
specified as part of the EDIT option. The specified format 
items control the access to and interpretation of characters 
in the input stream. 

When a GET statement is executed, each parenthesized list 
of input targets is paired with the following parenthesized 
list of format items. The paired groupings are processed in 
order from left to right. For each paired grouping, the 
specified list of input targets is processed in order from left 
to right, except as controlled by embedded-do specifi- 
cations. The input targets at the same parenthesis level as 
the embedded-da are processed left to right once for each 
iteration of the embedded-do. For example, the 
specification 

(C(4,J), D(J) DO J = 1 TO 2) 

is processed in the order 
C(4,l) D(l) C(4,2) D(2) 

Processing of each paired grouping terminates normally 
when the list of input targets is exhausted. The statement 
terminates normally when the list of paired groupings is 
exhausted. 



Edit-Directed Output 

The EDIT option specifies the source values to be trans- 
mitted to the output stream by PUT statement execution, 

source value must be scalar The EDIT option also specifies 
a sequence of format items that control the construction of 
characters in the output stream. 

When a PUT statement is executed, each parenthesized list 
of source values is paired with the following parenthesized 
list of format items. The paired groupings are processed in 
order from left to right. For each paired grouping, the 
specified list of source values is processed in order from left 
to right, except as controlled by embedded-do specifi- 
cations, which are processed in the same way as for edit- 
directed input. The processing of each paired grouping 
terminates normally when the list of source values is 
exhausted. The statement terminates normally when the list 
of paired groupings is exhausted. 



FORMAT PROCESSING FOR EDIT-DIRECTED I/O 

The list of input targets or output source values drives 
processing of the list of format items. Spacing or 
positioning is done in the process of a search for the next 
data transmission format item. 

The format items in a parenthesized format specification 
are processed in order from left to right, except as 
controlled by iteration factors. When an iteration factor is 
encountered, it is evaluated and converted to a fixed binary 
integer that must not be negative. Then the following 
format item, or entire parenthesized list of format items, is 
repeated the specified number of times. For example, the 
specification 

(2(A(10), F(5))) 

is processed in the order 
A(10) F(5) A(10) F(5) 
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When a remote format item is encountered, left-to-right 
processing of the format specification in which the remote 
format appears is interrupted. Format processing goes to 
the first item of the remote list. When the last format item 
of a remote list has been used and target or source items 
remain to be transmitted, format processing returns to the 
format specification that contains the remote format 
reference. Evaluation continues with the next format item 
following the used remote format item. 

If the last format item has been used and target or source 
items remain to be transmitted, format evaluation returns 
to the beginning of the format specification. 

The data transmission format items that control the 
transmission of values are: 

F Fixed point decimal arithmetic 

E Floating point decimal arithmetic 

A Character string 

B Bit string 

P Pictured 

The control format items that control the spacing and 
positioning of the input or output data in the stream are: 

X Ignore a number of characters or create a 

number of blanks 

COLUMN Move to a new column position 

SKIP Skip a number of lines 

LINE Move to a new line on the page (PRINT 

only) 

PAGE Move to the next page (PRINT only) 

The remote format item that controls the use of the format 
specifications contained in FORMAT statements is: 

R Use remote format specification in 

FORMAT statement 

The format items for data transmission, spacing and 
positioning, and use of remote formats are described in 
alphabetic order. 



The width specification is evaluated and converted, if 
necessary, to fixed binary integer. 



Input 

Width must be specified and must not be negative. The 
specified number of characters is obtained from the input 
stream. If width is zero, the source value is a null string. 
The source string is assigned to the target, and any 
necessary conversion is done during assignment. 



Output 

The source value is converted as necessary to character 
string. If width is not specified, all characters in the string 
are transmitted to the output stream. If width is specified, 
the string is padded on the right with blanks or truncated on 
the right. The string is then transmitted to the output 
stream. Examples are shown in figure 8-2. 



Output Value 

"ABCDE" 

'ABC 

'ABCDEFGH' 



Format 

A(5) 
A(7> 
A(6) 



Output Stream 

ABCDE 

ABCAAAA 
ABCDEF 



Figure 8-2. A Format Item Output Examples 



B Format Item 

The B format item is used for stream transmission of a bit 
string value. The syntax is shown in figure 8-3. 



For input 



For output 



B (width) 



[(width)] 



where width is an expression for the number of bits to be 
transmitted 



A Format Item 

The A format item is used for stream transmission of 
character string value. The syntax is shown in figure 8-1. 



For input 




A (width) 


For output 




A [(width)] 


where width is an expression for the number of characters 
to be transmitted 



Figure 8-1. A Format Item Syntax 



Figure 8-3. B Format Item Syntax 



The width specification is evaluated and converted, if 
necessary, to fixed binary integer. 



Input 

Width must be specified and must not be negative. The 
specified number of characters is obtained from the input 
stream. The stream is expected to contain a representation 
of a bit string as zero or more consecutive '0' and '1' 
characters. The bit string can be preceded and followed by 
blanks. The CONVERSION condition is raised if the input 
field contains any character that is not '0*, '1', or blank. If 
width is zero or if the string is all blanks, a null character 
string is the source. The source value is then converted to a 
bit string. The bit string value is assigned to the target 
item, and any necessary conversion is done during 
assignment. 
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Output 

The source value is converted as necessary to bit string. 
The bit string is then converted to a character string. If 
width is not specified, all characters in the string are 
transmitted to the output stream. If width is specified, the 
source value is padded on the right with blanks or truncated 
on the right. The string is then transmitted to the output 
stream. Examples are shown in figure 8-4. 



Output Value 

■1101111'B 

'1TB 

'11110101010TB 



Format 

B{7) 
B(5) 
B(4) 



Output Stream 

1101111 

11 AAA 
1111 



Figure 8-4. B Format Item Output Examples 



COLUMN Format Item 

The COLUMN format item is used to reposition the data 
stream at a specific column position in the line. COLUMN 
is used for FILE option processing and cannot be used for 
STRING option processing. The syntax is shown in 
figure 8-5. 



are transmitted for the remainder of the line. Blanks are 
then transmitted for the following line until the required 
column position is reached. 



E Format Hern 

The E format item is used for stream transmission of a 
floating point decimal arithmetic value. The syntax is 
shown in figure 8-6. 



>w[sdj! 



E (width 



where width is an expression for the number of characters 
in the field 

where fd is an expression for the number of fractional 
digits in the mantissa 

where sd is an expression for the total number of significant 
digits in the mantissa 



Figure 8-6. E Format Item Syntax 



JCOUUMn) f(new-column)l 
JCOL I >- J 



where new-column is an expression for the required column 
position in the line 



Figure 8-5. COLUMN Format Item Syntax 



The new-column specification is evaluated and jonverted, if 
necessary, to fixed binary integer. If new-column is 

n*-w c-oiumn position beyond the line size for the stream file, 
COLUMN(l) is also assumed. 

Action of the COLUMN format item is effective before the 
next data transmission through an A, B, E, F, or P format 
item. If no data transmission follows, the COLUMN format 
item is ignored. 



Input 

No action is taken if new-column is the next position. If 
new-column is greater than the next position, characters are 
ignored in the stream until the new-column position is 
reached. If new-column is less than the next position, 
remaining characters in the current line are ignored. 
Characters are also ignored in the following line until the 
required new-column position is reached. 



Output 

No action is taken if the new-column position matches the 
next available column position. If new-column is greater 
than the next available position, blanks are transmitted to 
the output stream until the new-column position is reached* 
If new-column is less than the next available position, blanks 



The width, fd, and sd specifications are evaluated and 
converted, if necessary, to fixed binary integers. Width 
must be specified and must not be negative. 



Input 

A field of the specified width is obtained from the input 
stream. The input field is expected to contain a repre- 
sentation of a floating point decimal constant. The 
representation of the floating point constant can be pre- 
ceded or followed by one or more blanks, but the constant 
cannot contain any blanks. If width is zero or the input field 
consists only of blanks, the source value is zero. The 
possible valid representations are: 

• An optionally signed fixed point decimal constant. The 
exponent E+0 is assumed. For example, 13.67 is 
assumed to represent 13.67E+0. 

• An optionally signed fixed point decimal constant 
immediately followed by a sign and a decimal integer. 
The exponent indication E is assumed. For example, 
23+4 is assumed to represent 2SE+4. 

• An optionally signed floating point decimal constant. 

The fd specification for the number of fractional digits is 
required. 'Die fd specification is used if the mantissa of the 
constant contains no decimal point. If the constant contains 
a decimal point, fd does not change the value of the 
constant. If f d is used, the assumed decimal point is placed 
so that fd significant digits are to the right of the decimal 
point. The sd specification can be present but is ignored for 
input values. 

The value is then assigned to the target. The precision of 
the value is (p), where p is the number of significant digits in 
the value. Any necessary conversion is done during 
assignment. Examples are shown in figure 8-7. 
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Input Stream 


Format 


Input Value 


AA20 


E(4,0) 


20E+0 


200AAA 


E{6,2) 


2.00E+0 


A2.3E5A 


E(7,2) 


2.3E+5 


-2+3AAA 


E(7,0) 


-2E+3 



Figure 8-7. E Format Item Input Examples 



Output 



The source value is converted as necessary xo a decimal 
floating-point value. The fd specification for the number 
of fractional digits is required. The sd specification is 
optional. If sd is Dot specified, sd is assumed to be fd+1. 
If sd is specified, sd must be greater than fd. The value of 
fd, and the value of sd, if specified, must not exceed 14. 

The width should be at least 6 greater than the total number 
of significant digits. Positions must be reserved for the sign 
of the mantissa, an E, and a signed three-digit exponent. If 
the mantissa is to contain a decimal point, width should be 
at least 7 greater than sd, and if all significant digits are to 
be fractional digits, width should be at least 8 greater than 
sd. If the specified width is not sufficient to represent the 
value without loss of sign or high-order significant digits, 
the SIZE condition is raised. 



F Format Item 

The F format item is used for stream transmission of a 
decimal fixed point arithmetic value. The syntax is shown in 
figure 8-9. 



F (width 



[,fd [,scale]| 



where width is an expression for the number of characters 
in the field 

where fd is an expression for the number of fractional 
digits 

where scale is an expression for the scale factor to be used 



Figure 8-9. F Format Item Syntax 



The width, fd, and scale specifications are evaluated and 
converted, if necessary, to fixed binary integers. Width 
must be specified and must not be negative. 



The value is transmitted to the output stream in one of the 
following ways: 

• E format item with fd=0: all significant digits are to be 
in the integer part of the mantissa. The output field is 
created as if under control of the picture 



*(i)B-(j)9VES999' 



where repetition factor 
i=width-sd-6 and j=sd 



• E format item with sd>fd and fd>=0; significant digits 
are to be in the integer and the fractional part of the 
mantissa. The output field is created as if under 
control of the picture 



•(i)B-0)9V.(k)9ES999' 



where repetition factor 
i=width-sd-7 and j=sd-fd and 
k=fd 



• E format item with sd=fd and sd>0: all significant 
digits are to be in the fractional part of the mantissa. 
The output field is created as if under control of the 
picture 



'(i)B-9V.tj)9ES999' 



where repetition factor 
i=width-sd-8 and j=sd 



Examples are shown in figure 8-8. 



Input 

A field of the specified width is obtained from the input 
stream. The input field is expected to contain a repre- 
sentation of a fixed-point decimal constant. The constant 
can be immediately preceded by a sign. The constant can be 
preceded or followed by blanks, but the constant cannot 
contain any blanks. If the width is zero or the input field 
consists entirely of blanks, the source value is zero. 

The fd specification for the number of fractional digits is 
optional. If the constant contains a decimal point, the fd 
specification is ignored. If fd is specified, the assumed 
decimal point is initially placed so that fd significant digits 
are to the right of the decimal point. If fd is not specified, 
fd is assumed to be zero. The scale specification can 
further alter the position of the decimal point. 

If scale is not specified, scale is assumed to be zero. The 
scale specification alters the source value by changing the 
location of the decimal point. A positive scale moves the 
decimal point to the right, and a negative scale moves the 
deeimal point to the left. Effectively, the source value is 
multiplied by ten raised to the power x>f <he scale. 

The value is then assigned to the target. The precision of 
the value is (p,q), where p is the number of signif ieant-digits 
in the value and q is fd-soale. Any necessary conversion is 
done during assignment. Examples-are shown in figure 8-10. 



Outout Value 

20 
20 
2.3 
.023 


Format 

E(10,3) 
E{10,Q) 
€(10,3) 
€(10,1,4) 


Outout Stream 

2.TOOE+001 

AAAA2E+001 

2.300E+000 

230.0E-004 




Input Stream 

A 200 
A 200 
A3.2 
200A 


Format 

F(4) 
F(4,2) 
F(4) 
F<(4,3,2) 


Input Value 

200 
2.00 
3.2 
20.0 



Figure 8-8. E Format Item Output Examples 



Figure 8-10. F Format Item Input Examples 
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Output 

The source value is converted as necessary to a decimal 
fixed point value. The fd specification for the number of 
fractional digits is optional. If fd is not specified, fd is 
assumed to be zero. The scale is optional and is used to 
scale the output value. If scale is not specified, the scale is 
assumed to be zero. 



The width should be at least 1 greater than the total number 
of significant digits, to reserve a position for the sign. If 
the output value is to contain fractional digits, width should 
be at least 2 greater - than the number of significant digits, 
to reserve an additional position for the decimal point. If 
the specified width is not sufficient to represent the value 
without loss of sign or high-order significant digits, the SIZE 
condition is raised. 



The value is multiplied by ten raised to the power of the 
scale. The number of fractional digits specified by fd is 
maintained, but fractional digits can be lost when the scale 
is applied. The value is then transmitted to the output 
stream in one of the following ways: 

• F format item with fd=8: all significant digits are to be 
in the integer part of the value. The output field is 
created as if under control of the picture 



•<iM>' 



where repetition factor i=width-l 



• F format item with fd>0: significant digits are to be in 
the integer and fractional parts of the value. The 
output field, is created as if under control of the picture 



'(i)-9V.(j)9 
Examples are shown in figure 8-11 



where repetition factor i=width-fd-l 
and j=fd 



Output Value 

3.2 
3.2 

-3.5 



Format 

F(4) 
F(4,2) 
F(4,l) 
F(4,0,2> 



Output Stream 

AAA3 
3.20 
AO.O 
-350 



Figure 8-11. F Format Item Output Examples 



LINE Format Item 

The LINE format item is used to position the output stream 
to the specified line with respect to the top of the page. 
LINE is used for FILE option processing and cannot be used 
for STRING option processing. LINE is used only for a 
PRINT file. The syntax is shown in figure 8-12. 



|l|B»S(iftiift| 



LINE (new-line) 



where new-line is an expression for the required line posi- 
tion on the page 



The new-line specification is evaluated and onverted, if 
necessary, to fixed binary integer. If tho new-line 

; u vu i nod 



s ( ir-ltod. new line fe n-vuimcd 10 be- i. If 
new-line is greater than the current line number, lines on 
the page are skipped until the specified line number is 
reached. If new-line causes the current line number to 
exceed page size, the ENDPAGE condition is raised. If new- 
line is less than the current line number, or new-line is the 
same as the current line number but characters have already 
been transmitted to the current line, the ENDPAGE condi- 
tion is raised. If new-line specifies the current line and the 
next available position is the first character of the line, the 
LINE format item has no effect. 



Action of the LINE format item is effective before the next 
data transmission through an A, B, E, F, or P format item. 
If no data transmission follows, the LINE format item is 
ignored. 



P Format Item 

The P format item is used for stream transmission of a 
pictured value. The pictured value transmitted is dependent 
on the form of the picture. The syntax is shown in 
figure 8-13. 



P 'picture-specification* 



where picture-specification is 

ipictu red-character 
p ictu red-nu merle-fixed 
pictured-numeric^float 



where prctured-character can include the picture codes A X 
and 9 

where pictu red-numeric-fixed can include the picture codes 
9 Z * Y V S + - T I R CR DB $ / , . B and F in a valid 
combination 

where pictured-numeric-float can include the picture codes 
9 Z * Y V S + - T I R / , . B E and K in a valid combina- 
tion 



Figure 8-12. LINE Format Item Syntax 



Figure 8-13. P Format Item Syntax 

The picture-specification is a character string containing 
a sequence of picture codes. The length of the picture 
specification cannot exceed 1000 characters. 
Picture-controlled conversion is described in section 7, 
Data Manipulation. 

Input 

The width of the input field is taken from the picture. For 
pictured character, the width is the number of picture 
codes. For pictured numeric fixed, the width is the number 
of picture codes other than V and F. For pictured numeric 
float, the width is the number of picture codes other than V 
and K. The input field is treated as the character value of a 
pictured item; if the input field does not conform to the 
specified picture, the CONVERSION condition is raised. The 
character value or arithmetic value interpreted from the 
character value is assigned to the target, and any necessary 
conversion is done during assignment. 
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Output 

The source value is treated as if for assignment through the 
picture-specification. The width of the output field is 
determined by the picture. For pictured character, the 
source value is converted to character, if necessary, and 
then validated through the picture. For pictured numeric, 
the source value is converted, if necessary, to FIXED 
DECIMAL or FLOAT DECIMAL and then edited through the 
picture. Examples are shown in figure 8-14. 



Output Value 

'123 ABC 

12.25 

3E+7 



Format 



Output Stream 



P'999AAAA' 123AABC 
P'S(5)ZV.99' +AAA 12.25 
P'999ES99' 300E+05 



Figure 8-14. P Format Item Output Examples 



must not reference a remote-format already referenced for 
the same GET EDIT or PUT EDIT operation; recursion is not 
permitted. An example is shown in figure 8-17. 



FMTU 

F0RMAT<A{5>. R<FMT2>>» 
FMT2: 

FORMATCSKIPf A<15>. F(10.3))l 



PUT EOITICN. CLABEL. CVALUEt CFLA6) 
(R(FMT1>, 8)1 

/• FORMAT ITEMS USED ARE: •/ 

/* A<5)t SKIP* A<15>, F(10.3)» B •/ 



Figure 8-17. R Format Item Example 



PAGE Format Item 

The PAGE format item is used to select the next page of the 
output stream. PAGE is used for FILE option processing and 
cannot be used for STRING option processing. PAGE is used 
only for a PRINT file. The syntax is shown in figure 8-15. 



SKIP Format Item 

The SKIP format item is used to skip a specified number of 
lines in the input stream or to advance a specified number of 
lines in the output stream. SKIP is used for FILE option 
processing and cannot be used for STRING option processing. 
The syntax is shown in figure 8-18. 




Figure 8-15. PAGE Format Item Syntax 



PAGE causes the current page number to be incremented by 
1. The first character of the first line of the next page is 
the next available character position. 



SKIP | (line-count)] 



where line-count is an expression for the number of lines 
to be skipped 



Figure 8-18. SKIP Format Item Syntax 



Action of the PAGE format item is effective before the 
next data transmission through an A, B, E, F, or P format 
item. If no data transmission follows, the PAGE format 
item is ignored. 



R Format Item 

The R format item causes use of a remote format 
specification in a FORMAT statement. The re !«.-;vi «■•■.. 
FORMAT statement must be immediately contained in the 
same block as the GET EDIT or PUT EDIT statement that 
references the remoti forrual. I'hc syntax it slmwn hi 
figure 8-16. 



R (remote-format) 



where j«nvvfp-t<vrrnat specifics a formal Kunstail 



Figure 8-16. R Format Item Syntax 



All format items in the format specification of the 
FORMAT statement identified by remote-format are in- 
cluded in place of the R format item. The remote-format 
can in turn contain the R format item. Each R format item 



The line-count specification is evaluated and converted, if 
necessary, to fixed binary integer. The line-count specifi- 
cation is optional and is assumed to be 1 if omitted. 

Action of the SKIP format item is effective before the next 
data transmission through an A, B, E, F, or P format item. 
If no data transmission follows, the SKIP format item is 
ignored. 



Input 

The input stream is advanced to the beginning of the 
indicated line. The specified line-count must be greater 
than zero. SKIP(l) indicates that the input stream is 
advanced from the current position to the first character 
position in the next line. If line-count specifies a value 
greater than 1, additional lines are skipped, with (line- 
count)-! lines ignored. If line-count exceeds the number of 
lines available in the input stream before end-of-file, the 
ENDFILE condition is raised. 



Output 

The output stream is advanced the specified number of lines. 
The line-count specification must not be negative. For a 
PRINT file only, line-count can be zero to indicate that the 
current character position is to be reset to 1. The current 
line number is not changed, and an overprint situation exists. 
If line-count is 1, the current output line is terminated and 
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the output stream is positioned at the first character 
position of the next line. If line-count specifies a value 
greater than 1, additional lines are skipped, with (line- 
count)-! empty lines written. If execution of the SKIP 
option causes the page size to be exceeded, the ENDPAGE 
condition is raised. Examples are shown in figure 8-19. 



PUT ED I T t tF IRST L INE ♦ . 
♦SECOND*. 
♦LINE*. 
♦FIFTH LINE*> 
(SKIP. A. 
SKIP. A. 

SKIP(O)* X<7), Ai 
SKIP (3), A) I 

/•OUTPUT LINES — — — 

FIRST LINE 
SECOND LINE 



FIFTH LINE 



•*/ 



Figure 8-19. SKIP Format Item Output Example 



RECORD FILE STATUS 

Each file constant that can be used for a record file carries 
the following information as the result of program 
compilation; 

• Declared file description attributes, if any. 

• Declared ENVIRONMENT, if any. 

When the file constant is opened either explicitly by OPEN 
statement or implicitly by execution of a record I/O 
statement, the following information is added: 

• The file title, either supplied in the TITLE option of the 
OPEN statement or created from the file constant. 

• Additional attributes specified on the OPEN statement 
or implied by the statement that implicitly opens the 
file constant. 

• Any additional attributes required to complete the set 
of file description attributes for the file. 

• Creation of a file information table (PIT) used by 
CRM. The ENVIRONMENT attribute specifies file 
processing options that are used for option fields in 
the FIT (see section 9). 



X Format Kent 

The X format item is used to ignore a number of characters 
in the input stream or create a number of blank characters 
in the output stream. The syntax is shown in figure 8-20. 



where space-count is an expression for the number of 
characters to be ignored or blanks to be created 



Figure 8-20. X Format Rem Syntax 



The space-count specification is evaluated aad converted, if 
necessary, to fixed binary integer. If space-count is not 
specified, ice coi i .- .-.: to oc ".. For input, the 

specified number of characters are ignored. For output, the 
specified number of blank characters are created in the 
output stream. 



• For SEQUENTIAL and SEQUENTIAL KEYED files, the 
current record designator is established. 

The following I/O conditions can be raised during record I/O 
operations: 

UNDEFINEDFILE Failure to open a file correctly. 



ENDFILE 



KEY 



RECORD 



TRANSMIT 



End of input file exceeded on a 
sequential read of a SEQUEN- 
TIAL or SEQUENTIAL KEYED 
record file. 

Invalid record key used for a 
DIRECT KEYED Or SEQUEN- 
TIAL KEYED record file. 

Inconsistency between the size 
of the allocation unit (variable or 
allocated buffer) and the record 
length (MRLorFL) specified 
with ENVIRONMENT. 

Data transmission error. 



In addition, the CONVERSION condition can be raised during 
reeord I/O operations. For example, CONVERSION can be 
raised during conversion to integer for a key used for a word 
addressable (W A) file. 



RECORD I/O 

In the record I/O operations, the file is considered as a 
collection of discrete records. Reeord I/O operations direct 
the input, output, or replacement of complete reeords. No 
conversions are performed during data transmission, and no 
formatting of the records occurs. Record I/O operations are 
different from stream I/O operations described earlier in 
this section. 

Records in a file can be accessed sequentially or by record 
key. Records in a SEQUENTIAL file can be accessed in the 
order in which the records exist in the file. Records in a 
SEQUENTIAL KEYED file can be accessed either sequen- 
tially or by record key. Records in a DIRECT KEYED file 
can be accessed only by record key. Each record key is a 
unique name associated with the complete record. 



RECORD I/O STATEMENTS 

The statements used for record I/O are the READ, WRITE, 
REWRITE, DELETE, and LOCATE statements. Each record 
I/O statement is described in detail in section 12, State- 
ments. The record I/O statements have a number of 
statement options that are used or omitted, depending on 
the circumstances. 

The READ statement can be used with an INPUT file or 
UPDATE file. The WRITE statement can be used with an 
OUTPUT file or UPDATE file. The REWRITE statement can 
be used with an UPDATE file. The DELETE statement can 
be used with an UPDATE KEYED file. The LOCATE 
statement can be used for an OUTPUT file. The available 
record I/O statements for each possible set of file descrip- 
tion attributes is shown in table 8-5. 
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TABLE 8-5. RECORD I/O STATEMENTS FOR RECORD FILES 



Record File Attributes 


Available I/O Statements 


RECORD INPUT SEQUENTIAL 


(INTO-option ) 

READ FILE-option < SET-option ( 

( IGNORE-option) 


RECORD OUTPUT SEQUENTIAL 


WRITE FILE-option FROM-option 

LOCATE based-variable FILE-option [SET-option] 


RECORD UPDATE SEQUENTIAL 


( INTO-option ) 

READ FILE-option < SET-option } 

UGNORE-option) 

REWRITE FILE-option [FROM-option] 


RECORD INPUT SEQUENTIAL KEYED 


(INTO-option ) r KFy _,,!.. "1 
READ FILE-option { SET-option > JJS^ 
( IGNORE-option J L KEYT0 -°P tl0n J 


RECORD OUTPUT SEQUENTIAL KEYED 


WRITE FILE-option FROM-option KEYFROM-option 

LOCATE based-variable FILE-option KEYFROM-option [SET-option] 


RECORD UPDATE SEQUENTIAL KEYED 


(INTO-option ) rVpv «•• 1 
READ FILE-option ^SET-option > £wv™.I£ts«n 
I IGNORE-option) L KEYTO -°P tlon J 

REWRITE FILE-option FROM-option KEY-option 
DELETE FILE-option KKY-option 


RECORD INPUT DIRECT KEYED 


READ FILE-option KEY-option {sET^ODtion 11 }* 


RECORD OUTPUT DIRECT KEYED 


WRITE FILE-option FROM-option KEYFROM-option 

LOCATE based-variable FILE-option KEYFROM-option [SET-option] 


RECORD UPDATE DIRECT KEYED 


READ FILE-option KEY-option {sET^Tion"} 

REWRITE FILE-option FROM-option KEY-option 

DELETE FILE-option KEY-option 

WRITE FILE-option FROM-option KEYFROM-option 



The FILE option for all record I/O statements identifies the 
file on which record I/O is to be performed. Transmission 
occurs to or from the file. 

The INTO option for READ statements specifies the variable 
to receive the input record. 

The SET option for READ and LOCATE statements specifies 
a pointer variable. The pointer variable is set to address an 
allocated buffer used for storage of the record. 

The IGNORE option for READ statements specifies the 
number of records to be skipped during input. The IGNORE 
option is used in reading records by sequence rather than 
by key. 



The FROM option for WRITE and REWRITE statements 
specifies the variable whose value is to be written as an 
output record. 

The KEYTO option for READ statements specifies the 
variable to receive the value of the key when a keyed record 
is read sequentially. 

The KEY option for READ, REWRITE, and DELETE state- 
ments specifies the value of the key for an operation to 
read, replace, or delete a record by key. 

The KEYFROM option for WRITE and LOCATE statements 
specifies the value of the key when a new keyed record is 
written to a file. 
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An example of statements that access a SEQUENTIAL file 
and a DIRECT KEYED file is shown in figure 8-21. 



DECLARE INI FILE RECORD INPUT; 
DECLARE ISFILE TILE RECORD OUTPUT? 
DECLARE 1 CARD IMAGE . 

2 ANIMAL CHAR (15). 

2 AGE CHAR (5). 

2 COMMENTS CHAR (60); 



OPEN FILEUN1) ENV URT=W»MRL=80,KL=15*> » 
OPEN FILE(ISFILE) DIRECT KEYED 

£NV(*RT=W»MRL=80.KLsl5f> » 



READ FILE (INI) INTO (CARDIMAGEM 
WRITE FILE(ISFILE) FROM (CARDIMAGE) 
KEYFROM( ANIMAL)! 



/•RECORDS FROM FILE INI 



BABOON 
COM 

AARDVARK 
DOG 



12 A TYPE OF MONKEY 
4 NOT A MONKEY 
92 THIS IS A CRAZY ANIMAL 
10 ENEMY OF CATS 
v 



Figure 8-21. RECORD File Example 



ALLOCATION UNIT SIZE 

All record I/O operations involve the input or output of 
complete records. For an input operation, the length of the 
input record must match the size of the allocation unit for 
the variable referenced in the INTO option. For an output 
operation, the size of the allocation unit for the variable 
referenced in the FROM option must match the record 
length established for records in the output file. 



The record length for records in a file can be specified with 
the ENVIRONMENT attribute for the file constant or with 
the ENVIRONMENT option in the OPEN statement. A FILE 
control statement (in the control statements for the job) can 
also specify the record length. The processing of 
ENVIRONMENT options is described in section 9, CRM 
Interface. 



Record I/O can only transmit records which represent 
. The sj'ec of an allocation unit i. 1 -; 
i] vays •'■ integral i u -fiber of 60-bit words. Each 60-bit 
word can be divided into 10 characters or bytes containing 
6 bits each. 



The allocation unit size for a scalar variable depends upon 
the data type of the variable, and is calculated as follows: 



Arithmetic: 1 word 

CHARACTER nonvarying: CEIL(length/10) words 

CHARACTER VARYING: CEIL(length/10) + 1 words, 
where length is the maximum length 

BIT nonvarying: CEIL(length/60) words 

BIT VARYING: CEIL(length/60) + 1 words, where 
length is the maximum length 

Pictured: CEIL(length/10) words, where length is the 
length of the character value 

AREA: (area-size) words 

All noncomputational types except area: 1 word 

The allocation unit size for an array variable is calculated 
as follows: 

ALIGNED array containing elements of any type: 
(words-per-element) * (number-of-elements) words 

UNALIGNED array containing CHARACTER non- 
varying elements: CEIL((length * (number-of-ele- 
ments))/60) words 

UNALIGNED array containing BIT nonvarying ele- 
ments: CEIL((length * (number-of-elements))/60) words 

UNALIGNED array containing pictured elements: 
CEIL((length * (number-of-elements))/10) words, 
where length is the length of the character value 

UNALIGNED array containing elements of any type 
except CHARACTER nonvarying, BIT nonvarying, or 
pictured: (words-per-element) * (number-of-elements) 
words 



The allocation unit size for a structure that does not 
contain another structure is calculated as follows: 

• Structure in which every member is CHARACTER 
nonvarying UNALIGNED: CEIL((total-length/10) 
words, where total-length is the sum of all scalar 
members including array elements. 

• Structure in which every member is BIT nonvarying 
UNALIGNED: CEIL((total-length)/60 words, where 
total-length is the sum of the lengths of all scalar 
members including array elements. 

• All other structures that do not contain other 
structures: (total-size) words, where total-size is the 
sum of the lengths of all immediately contained 
members of the structure. 

The allocation unit size for a structure variable that 
contains one or more other structures is calculated as 
follows: 

• All structures that contain other structures: 
(total-size) words, where total-size is the sum of the 
lengths of all immediately contained members of the 
structure. 
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CYBER RECORD MANAGER INTERFACE 



All input/output operations performed on stream files or 
record files are done by CYBER Record Manager (CRM). 
This section describes the connection between PL/I 
information about a file and the information specified 
about the local CRM file used for input/output 
operations. Input/output operations are described in 
section 8 Input/Output. 

The environment of a file consists of information about 
CRM file processing options. The environment options 
can be specified with the ENVIRONMENT attribute in the 
declaration of the file constant, with the ENVIRONMENT 
option in an OPEN or CLOSE statement, or with the FILE 
control statement (in the control statements for the job). 
The file environment information can be specified or 
omitted. If omitted, environment options are established 
by default. 

The environment options specified for a file must be 
appropriate for the local CRM file. The file description 
attribute set for the file determines the compatibility of 
the environment options. The description of environment 
compatibility discusses the available environment options. 

ENVIRONMENT PROCESSING 
AND DEFAULTS 

When a file constant is opened, the file environment 
information is established. The environment information 
is established with default values which can then be 
overridden. The processing of environment information is 
therefore different from the completion of a consistent 
set of file description attributes for the file. 

The file environment information is placed in the file 
information table (FIT) used by CRM. When a file 
constant is opened, file processing options are established 
in the newly-created FIT for the file. Default file 
processing options are supplied, and the specified options 
can override certain default options or set additional 
options. The supplied default options are: 

• The local file name (LFN) option is supplied. The file 
title is used as the local file name, as described in 
section 8. 

• The file organization (FO) option is supplied as shown 
in table 9-1. FO .is set to SQ (sequential 
organization) for all stream files and for all record 
files that are not KEYED. FO is set to indexed 
sequential organization (IS) for all record files that 
are KEYED. 

• The record type (RT) option is supplied. RT is set to 
Z for all stream files, and W for all record files 
except INPUT and OUTPUT. The record types for 
INPUT and OUTPUT are always set to Z. See 
table 9-1. 

• The fixed length or maximum record length (FL/MRL) 
option can be supplied. For a stream file, FL is 
supplied as shown in table 9-1. For a record file, no 
FL/MRL value is supplied by default. For a record 
file, ENVIRONMENT (or the FILE control statement) 
can be used to set the FL/MRL option. 



TABLE 9-1. DEFAULT FILE ENVIRONMENT OPTIONS 



File Attributes 


Default 

Environment 

Options 


FO 


RT 


FL/MRL 


STREAM INPUT 
STREAM OUTPUT 
STREAM OUTPUT PRINT 
RECORD INPUT SEQL 
RECORD OUTPUT SEQL 
RECORD UPDATE SEQL 
RECORD INPUT SEQL KEYED 
RECORD OUTPUT SEQL KEYED 
RECORD UPDATE SEQL KEYED 
RECORD INPUT DIRECT KEYED 
RECORD OUTPUT DIRECT KEYED 
RECORD UPDATE DIRECT KEYED 


SQ 

SQ 

SQ 

SQ 

SQ 

SQ 

IS 

IS 

IS 

IS 

IS 

IS 


Z 
Z 
Z 
W 
W 
W 
W 
W 
W 
W 
W 
W 


80 

80 

137 



• The key length (KL) option is supplied for a KEYED 
file. The specification KL=10 is assumed. 

• The open flag (OF) option is supplied. For any INPUT 
file (except file SYSIN) and for any UPDATE file, OF 
is set to R (rewind). For all other files, OF is set to 
N (no rewind). 

• The block type (BT) option is set to C for all stream 
files and record files. The BT option must not be 
overridden for stream files. 

• The processing direction (PD) option is supplied. PD 
is set to INPUT for all INPUT files, OUTPUT for all 
OUTPUT files, and I-O for all UPDATE files. The PD 
option must not be overridden. 

• The old/new flag (ON) option is supplied. ON is set to 
NEW or OLD as appropriate. The ON option must not 
be overriden. 

• The ORG option is supplied as NEW for all files. The 
ORG option must not be overridden. 

• The error file control (EFC) option is supplied. EFC 
is set to 3, which enables error messages and notes to 
be listed on the error file. 

• The dayfile control (DFC) option is supplied. DFC is 
set to 1, which enables error messages to be listed on 
the dayfile. 
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I« The error option (EO) is supplied. EO is set to AD 
which causes parity errors to be disregarded. 

After default environment options have been established, 
the following steps are performed to complete the opening 
of the file: 

1. If the OPEN statement for a stream output file 
includes the LINESIZE option, the specified line size 
is used to set FL/MRL. If the file is a print file, 
FL/MRL is set to a value one greter than the line 
size. For example, LINESIZE(136) sets line size to 
136 and sets FL/MRL to 137. The FL/MRL option 
includes one character for the carriage control 
information. 

2. If the DECLARE statement for the file constant 
specifies the ENVIRONMENT attribute, the specified 
options are effective. The ENVIRONMENT attribute 
specifies a simple character constant containing a list 
of CRM options separated by commas. For any 
option that requires a supplied numeric value, a 
decimal integer must be used. The CRM options that 
can be specified include: 



5. 



FL 


File organization 


RT 


Record type 


FL/MRL 


Fixed length/maximum record 
length 


KL 


Key length (KEYED record file 
only) 



OF 



Open flag 



If the OPEN statement for the file specifies the 
ENVIRONMENT option, the specified options are 
effective. The ENVIRONMENT option specifies and 
expression that is evaluated 1 to yield a character 
value containing a list of CRM options separated by 
commas. The CRM options that can be specified are 
the same as shown for step 2. 

Ef a FILE control statement for the file appears in the 
control statements for the job, the specified options 
are effective. The FILE control statement specifies 
the local file name and a sequence of specifications 
separated by commas. 

The format of the FILE control statement is: 

FILE(lfn,option=value , . . .) 

The CRM options that can be specified for a file used 
by the PL/I program are the same as shown in step 2. 

CYBER Record Manager can further supply values for 
FIT fields. See the CYBER Record Manager 
reference manuals. 



When the file is closed, the following steps are taken: 

1. The elose flag (CF) option is set to DET. This 
detaches the file without rewinding it, releases the 
buffer space and removes the file name from the 
active file h'st. 

2. If the DECLARE statement for the file constant 
specifies the ENVIRONMENT attribute, the specified 
options are effective. The ENVIRONMENT attribute 
specifies a simple character constant containing a list 
of CRM options separated by commas. For any 



option that requires a numeric value, a decimal 
integer must be used. The CRM option that can be 
used is: 



CF 



Close flag 



If the CLOSE statement for the file 
ENVIRONMENT option, the specified 
effective. The ENVIRONMENT option 
expression that is evaluated to yield 
value containing a list of CRM options 
commas. The CRM options that can be 
the same as those shown for step 2. 



specifies the 
options are 
specifies an 
a character 
separated by 
specified are 



4. If a FILE control statement for the file appears in the 
control statements for the job, the specified options 
are effective. The FILE control statement specifies 
the local file name and a sequence of specifications 
separated by commas. The format of the FILE 
control statement is: 

FILE(lfn,option mnemonic=value, . . .) 

The CRM options that can be specified for a file are 
the same as those shown in step 2. 

5. CYBER Record Manager can further supply values for 
FIT fields. See the CYBER Record Manager 
reference manuals. 



ENVIRONMENT COMPATIBILITY 

When a PL/I file is opened for input/output processing and 
the environment information has been used to establish 
CRM options in the file information table (FIT), the CRM 
options are checked. If any incompatiblity exists between 
the PL/I file and the established CRM options, the 
UNDEFINEDFILE condition is raised and the file is not 



FILE ORGANIZATION 

The FO option for file organization can indicate a 
sequential CRM file (SQ), a word addressable CRM file 
(WA>, or an indexed sequential CRM file (IS). The possible 
values for the FO option are shown in table 9-2. 

For FO-SQ, the following rules apply: 

• A REWRITE statement can only be used for RT=F or 
RT=W. In either case, the rewritten record must 
have the same length as the one it replaces. 

« The DELETE statement can only be used for RT=F or 
RT=W. In either case, the rewritten record must 
have the same length as the one it replaces. 

For. FO=W A r the following rules apply: 

• All records transmitted must have the exact length 
specified by the FL or MRL option, even if RT=W. 

a The file is always rewound before opening, and the 
OF option is ignored. For example, the following 
sequence of operations would cause data to be lost: 

OPEN the file with SEQUENTIAL 

WRITE to the file 

CLOSE THE file 
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TABLE 9-2. FO AND RT OPTIONS FOR FILES 



File Attributes 


CRM File Organization 
and Record Type 


STREAM INPUT 
STREAM OUTPUT 
STREAM OUTPUT PRINT 


FO=SQ and RT=F, Z, W, or S 


RECORD INPUT SEQUENTIAL 
RECORD OUTPUT SEQUENTIAL 
RECORD UPDATE SEQUENTIAL 


FO=SQ and RT=F, Z, W, or S 
FO=WA and RT=F or W 


RECORD INPUT SEQUENTIAL KEYED 
RECORD OUTPUT SEQUENTIAL KEYED 
RECORD UPDATE SEQUENTIAL KEYED 
RECORD INPUT DIRECT KEYED 
RECORD OUTPUT DIRECT KEYED 
RECORD UPDATE DIRECT KEYED 


FO=IS and RT=F, Z, W, or S 
FO=WA and RT=F or W 



OPEN the file with SEQUENTIAL 
WRITE to the file 

• The DELETE statement cannot be used. 

« Overwrite of an existing record cannot be detected. 
Extension of the file (writing beyond the last existing 
key) cannot be detected. 

I • fa a READ operation, the program must not attempt 
to read a nonexistent record or read beyond the last 
existing record of a file. 

• fa a REWRITE operation, the program must not 
attempt to rewrite a nonexistent record or rewrite 
beyond the last existing record. 

» A REWRITE statement must write a record of the 
same length as the one it replaces. 

For FO=IS, the following rules apply: 

s All record I/O statements are available. 

• A REWRITE statement must write a record of the 
same length as the one replaced. 

RECORD TYPE AND LENGTH 

The RT option for record type can indicate fixed records 
(F), zero byte records (Z), control word records (W), or 
system records (S). The possible values for the RT option 
are determined by the FO option and are shown in 
table 9-2. The fixed length option (FL) is used to specify 
the record length for RT=F or RT=Z files. The maximum 
record length option (MRL) is used to set the maximum 
record length for RT=W or RT=S files. 

For RT=F, all records transmitted must have the exact 
length specified by the FL option. Since no FL/MRL 
option is supplied by default for a record file, FL must be 
specified for a record file in the ENVIRONMENT or with 
the FILE control statement. 

For RT=Z on stream input files, each line from the CRM 
file is padded on the right with blanks to the length 
specified by the FL option. For RT=Z on stream output 



files, all blanks at the end of each line will be lost in 
transmission to the CRM file. No transmitted line Can be 
longer than the length specified by the FL option. No 
occurrence of two consecutive V characters can occur in 
the data if a 64-character set is in use. 

For RT=Z on record files, a record cannot be transmitted 
if the internal form contains twelve consecutive zero bits 
at the right end of any word and a 64-character set is in 
use. 

For RT=W, all records transmitted must have a length less 
than or equal to the length specified by the MRL option. 

For RT=S, all recrords transmitted must have a length less 
than or equal to the length specified by the MRL option. 



RECORD KEYS 

Record keys are used for a KEYED record file. The file 
organization for a KEYED record file can be either FO=IS 
or FO=WA. The program specifies key values for the I/O 
statements used to read or write the file. The KEY, 
KEYFROM, and KEYTO options of the record I/O 
statements specify handling of record keys. 

For FO=IS files, all keys are character strings with the 
attributes CHARACTER nonvarying and a length greater 
than 0. The KL option for key length specifies the length 
of all keys for the file. The KL option for an OUTPUT or 
UPDATE file must agree with the length of the keys in 
the existing file; no length checking is performed. The 
length of the string specified by a KEY, KEYFROM, or 
KEYTO option must agree with the KL option for the file. 

For FO=WA files, all keys are character strings containing 
values that are representations of nonnegative integers. 
The KL option is not used. All keys used in the program 
must be record numbers and not word addresses. The first 
record is addressed with a key of '0', the second record 
with a key of '1', and so forth. Since all records 
transmitted are required to have the exact length 
specified by the FL/MRL option, the word address of the 
record is calculated at run time for each access to a 
record, fa the evaluation of any expression that specifies 
a key value, conversion to integer is performed. For 
example, '3.42' becomes 3. 



60388100 B 



9-3 



CONDITIONS 



10 



A condition is an unusual situation that can occur during 
execution and result in a program interrupt. The situation 
could be related to computational error, such as dividing by 
zero; special status recognition, such as sensing an end-of- 
file; or I/O error, such as using an invalid record key. When 
the situation occurs, a condition is said to be raised. 

PL/I defines a number of standard conditions and the 
circumstances under which they are raised. Each is 
identified by a keyword condition name. Standard conditions 
are raised automatically by the system. Any standard 
condition can be simulated by the SIGNAL statement for 
testing of error recovery code. 

Conditions can also be defined by the programmer. Each is 
identified by a programmer-assigned name in conjunction 
with keyword CONDITION. Programmer-named conditions 
are raised only by SIGNAL statement execution. 

When a condition is raised or simulated by the execution of a 
statement, the action taken depends on whether the condi- 
tion is enabled or disabled for that statement. Compu- 
tational conditions can be enabled or disabled through the 
use of condition prefixes. All other conditions are always 
enabled. The raising of an enabled condition causes an 
interrupt and activates the current established on-unit for 
that condition. The on-unit specifies the action that is to be 
taken when the condition is raised. The raising of a disabled 
condition is an error; the subsequent actions are described 
for individual conditions later in this section. The simu- 
lation of a disabled condition by SIGNAL statement is not an 
error; it has no effect. 

Enabling a condition ensures that errors will be detected. 
Disabling a condition improves the execution speed of a 
checked-out program, but errors that occur might not be 
detected and can produce unpredictable results. 

There are two types of on-units: programmed on-units and 
system on-units. A programmed on-unit is code that 
specifies action to be taken when the condition is raised. A 
system on-unit provides standard system action when the 
condition is raised. Every condition has exactly one current 
established on-unit, which can be either a programmed 
on-unit or the system on-unit. The system on-unit is 
automatically in effect for each condition that has no 
programmed on-unit. 

CONDITION CLASSIFICATION 

Conditions can be grouped into six general categories. The 
categories and their respective conditions are listed in 
table 10-1. 

CONDITION PREFIXES 

Condition prefixes are used to enable or disable compu- 
tational conditions. As described in section 12, Statements, 
a condition prefix precedes the body of a statement and 
consists of one or more enabled condition names or disabled 
condition names enclosed in parentheses. Condition prefixes 
can appear on any statement except DECLARE, END, and 
ENTRY. Condition prefix syntax is 

y f enabled-condition-name ) v. 
Idisabled-eondition-namef' ' ' ' 



An enabled condition name can be any of the names listed in 
the computational category of table 10-1. A disabled 
condition name is formed by preceding the condition name 
with the letters NO. Disabled condition names are 

NOCONVERSION or NOCONV 
NOFKEDOVERFLOW or NOFOFL 
NOOVERFLOW or NOOFL 
NOSIZE 

NOSTRINGRANGE or NOSTRG 
NOSUBSCRIPTRANGE or NOSUBRG 
NOUNDERFLOW or NOUFL 
NOZERODIVIDE or NOZDIV 

A condition is explicitly enabled or disabled only within the 
scope of a condition prefix that names the condition. 
Outside that scope or in the absence of any condition prefix 
naming that condition, the condition assumes a default 
state. All conditions are enabled by default except SIZE, 
STRINGRANGE, and SUBSCRIPTRANGE; these three condi- 
tions are disabled by default. 

A condition prefix on any statement other than BEGIN or 
PROCEDURE applies only to that statement. It does not 
apply to blocks activated during the execution of the 
statement. Specific rules are noted as follows: 

BEGIN statement 

The condition prefix applies to all statements and 
blocks contained in the begin block. It does not 
apply to contained statements or blocks that have 
condition prefixes identifying the same condition. 

CALL statement 

The condition prefix applies to expressions or 
arguments in the CALL statement. It does not 
apply to the invoked procedure. 

DO statement 

The condition prefix applies to expressions in the 
DO statement. It does not apply to statements or 
blocks contained in the do group. 

FORMAT statement 

The condition prefix applies to expressions in the 
FORMAT statement. It does not apply to the 
referencing GET or PUT statement. 

GET statement 

The condition prefix applies to expressions in the 
GET statement. It does not apply to a referenced 
FORMAT statement. 

IF statement 

The condition prefix applies to evaluation of the IF 
statement expression. It does not apply to any 
statements in the executable units following the 
keywords THEN and ELSE. 

ON statement 

The condition prefix applies to execution of the ON 
statement. It does not apply to the on-unit. A 
condition prefix on the first or only statement of 
the on-unit applies to the on-unit. 
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TABLE 10-1. CLASSIFICATION OF CONDITIONS 



Condition 
Type 


Condition Name 


Default 
State 


Can it be 
Disabled? 


Computational 


CONVERSION or CONV 
FKEDOVERFLOW or FOFL 
OVERFLOW or OFL 
SIZE 

STRINGRANGE or STRG 
SUBSCRIPTRANGE or SUBRG 
UNDERFLOW or UFL 
ZERODIVIDE or ZDIV 


Enabled 

Enabled 

Enabled 

Disabled 

Disabled 

Disabled 

Enabled 

Enabled 


Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 


VO 


ENDFILECfite-reference) 

ENDPAGE(file-reference) - 

KEY(file-reference) 

RECORD(file-reference) 

TRANSMIT(file-reference) 

UNDEFINEDFILE(file-re£erence) 
or UNDF(file-reference) 


Enabled 
Enabled 
Enabled 
Enabled 
Enabled 
Enabled 


No 
No 
No 
No 
No 
No 


Storage Control 


AREA 
STORAGE 


Enabled 
Enabled 


No 
No 


Error 


ERROR 


Enabled 


No 


Finish 


FINISH 


Enabled 


No 


Program mer-named 


CONDITION(identifier) or 
COND(identifier) 


Enabled 


No 



PROCEDURE statement 

The condition prefix applies to all statements and 
blocks contained in the procedure block. It does 
not apply to contained statements or blocks that 
have condition prefixes identifying the same condi- 
tion. 

PUT statement 

The condition prefix applies to expressions in the 
PUT statement. It does not apply to a referenced 
FORMAT statement. 



ON-UNITS 

Programmed and system on-units are specified with the ON 
statement. ON statement syntax is 

[prefix]. . . ON condition [SNAP] i SYSTEM; } 
Refer to section 12 for detailed ON statement syntax. 



A programmed on-unit is a begin block or a single 
statement. For example: 

ON ENDFILE(F1LEA) GOTO RECOVER; 

or 

ON ENDFILE(FILEA) BEGIN; 

END; 

A system on-unit specifies standard system action for the 
condition. The SYSTEM option in the ON statement 
indicates that the system on-unit should be activated when 
the condition is raised. For example: 

ON ENDFILE(FILEA) SYSTEM; 

The SNAP option is described later in this section. 

Execution of the ON statement establishes the programmed 
or system on-unit for the specified condition. Establishing 
an on-unit does not cause it to be executed; it merely makes 
the on-unit available for execution when the condition is 
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subsequently raised. An established on-unit is always 
associated with the block activation in which the ON 
statement was executed. The on-unit is said to be 
established in that block activation. 

Note that the ON statement is not a declarative statement. 
It is executed only when it is encountered in the normal flow 
of control. 



CURRENT ESTABLISHED ON-UNIT 

The current established on-unit for a condition is the 
on-unit that will be activated if the condition is raised. The 
current established on-unit can be associated with any block 
activation; it need not be established in the current block 
activation. 

Several established on-units can exist for a condition; one 
can be associated with each block activation in the dynamic 
block activation stack. There is always exactly one current 
established on-unit for each condition, and it is found as 
follows: 

• If no established on-unit exists for the condition in any 
block activation, the current established on-unit is the 
system on-unit for the condition. The SNAP option is 
assumed to be present for the ERROR condition only. 

• If exactly one established on-unit exists for the 
condition, it is the current established on-unit. 

• If more than one block activation has an established 
on-unit for the condition, the current established 
on-unit is the most recently established on-unit; that is, 
the one in the most recent block activation. 



Figure 10-1 illustrates these three cases. 



ESTABLISHING AND REMOVING ON-UNITS 

Each block activation in the dynamic block activation stack 
can have associated with it one established on-unit for each 
condition. Note that ENDFILE(F) and ENDFILE(G) are two 
different conditions if F and G are file constants. 
CONDITION(RED) and CONDITION(BLUE) are also different 
conditions. 

When a block is activated, the new block activation has no 
established on-units. When the block activation is termi- 
nated, all on-units established in it are discarded. While the 
block is active, on-units can be established and removed as 
follows: 

• Execution of an ON statement for a condition estab- 
lishes the specified programmed or system on-unit in 
the current block activation. If an on-unit for that 
condition is already established in the current block 
activation, the old on-unit is discarded and replaced by 
the new one. 

• Execution of a REVERT statement for a condition 
removes the on-unit established for that condition in 
the current block activation. If there is no on-unit for 
the condition established in the current block acti- 
vation, the REVERT statement has no effect. 

• Execution of an ON statement or REVERT statement 
has no effect on on-units established in dynamic 
predecessors of the current block activation. 



P: PROC OPT IONS CMAIN)* 
CALL Qi 

(It PROC* 

READ FILE(F) SET(POINT)* 
/•SYSTEM ON-UNIT*/ 
END Q* 

END P* 



P: PROC OPTIONS(MAIN)» 
DECLARE FIRST ENTRYI 
ON ENDEILE(F) CALL FIRST* 
CALL 0* 

0: PROC* 

READ FILE<F) SET(POINT)* 

/•CALL FIRST*/ 

END Q* 
END P* 



PROC OPTIONS(MAIN)* 
DECLARE (FIRST.SECOND) ENTRY* 
ON ENDFILE(E) CALL FIRST* 
CALL 0* 

0* PROC* 

ON ENDFILE<F> CALL SECOND* 
READ FILE(F) SET<P0INT>* 
/•CALL SECOND*/ 

END 0* 
END P* 



P* PROC OPTIONS(MAIN)* 

DECLARE <Q»FIRST> ENTRY* 
ON ENDFILE(F) CALL FIRST* 
CALL 0* 
END P* 

Q* PROC* 

READ FlLE<F> SET(POINT)* 
/•CALL FIRST*/ 

END Ot 

Comments indicate the action that will be taken if 
ENDFILE(F) is raised during execution of the READ 
statement. 

The last example illustrates that the current established 
on-unit need not be contained in the same external 
procedure as the statement that causes it to be 
activated. 



Figure 10-1. The Current Established On-Unit 



Figure 10-2 illustrates the use of the ON statement to 
establish on-units and the use of the REVERT statement to 
remove established on-units. 

NONLOCAL REFERENCES IN AN ON-UNIT 

Any reference to an identifier that is not explicitly declared 
inside the on-unit itself is a nonlocal reference. Any 
reference in a single statement on-unit is a nonlocal 
reference. 
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p: proc options<main> * 

declare (first. second«thiro) fntry* 

>^EAO FlLE(F) SET(POINT); 

/'SYSTEM ON-UNIT*/ 

ON E*4DFILE(F) CALL FIRST* 

rtEAO FILE(F) SET(POINT)* 

/*CALL FIRST*/ 

ON EMDFILE(F) CALL SECOND: 

CALL 0? 

or PRoC* 

READ FILE<F) SET(POINT)* 

/'CALL SECOND*/ 

OH ENDFILE(F) CALL THIRD* 

READ FILE(F) SET1P0INT) * 

/'CALL THIRD*/ 

REVERT ENOFILE(F); 

READ FILE<F) SFT(POINT)* 

/"CALL SECOND*/ 

REVERT ENf)FILE(F) « 

READ FILE(F> SET(POINT)* 

/"CALL SECOND*/ 

OH ENOFILE(F) CALL THIRO* 

READ FILE(F) SFT(POINT)* 

/*CALL THIRD*/ 

END Q* 

HEAD FILE(F> SET(POINT)* 
/»CALL SECOND*/ 
REVERT EHDFlLE(F)* 
BEAD FILE(F> SET(P0INTM 
/'SYSTEM ON-UNIT*/ 
END Pi 

Each comment indicates the action that will be taken 
if ENDFILE(F) is raised during execution of the 
preceding READ statement. 



Figure 10-2. Establishing and Removing On-Units 



Execution of a nonlocal reference sometimes requires the 
use of the environment of the current block activation as 
described in section 2, Dynamic Program Structure. The 
immediate environment of an on-unit activation is the block 
activation in which the on-unit was established. 



I/O CONDITION NAMES 

The name of each I/O condition contains a file reference. If 
the file reference is a file variable, the current file constant 
value of the file variable is used when the ON, REVERT, or 
SIGNAL statement is executed. Similarly, when an I/O 
condition is raised during execution of a statement that 
references a file variable, the current file constant value of 
the file variable is used in finding the current established 
on-unit. The use of I/O conditions is illustrated in 
figure 10-3. 

If A and B are file constants, ENDFILE(A) and ENDFILE(B) 
are two different conditions. An on-unit for ENDFILE(A) 
and an on-unit for ENDFILE(B) can be established in the 
same block activation. When ENDFILE(A) is raised, the 
current established on-unit for ENDFILE(A) is activated; 
established on-units for ENDFILE(B) are irrelevant. 



ON-UNIT TERMINATION 

Termination of an on-unit is classified as normal or 
abnormal. Normal termination returns control to the block 
activation in which the condition was raised. The point to 



which control is returned depends upon the particular 
condition and the manner in which it was raised. Abnormal 
termination transfers control to some specified point in the 
program by a nonlocal GOTO. Any GOTO statement that 
transfers control to a statement outside the on-unit is a 
nonlocal GOTO. This is true regardless of whether the 
on-unit is written as a single statement or as a begin block. 
Normal and abnormal termination is discussed under Block 
Termination in section 2. 



PROC OPTIONS(MAIN)* 

DECLARE <F,G) FILEI 

ON ENDFILE(F) GOTO CLEANUP* 

ON E.NDFILE(G) RETURN* 

CALL 0(F)* 

CALL 0(G)* 



PROC(FPARM) * 

DECLARE FPARM FILE* 

ON ENDF1LE (FPARM) CLOSE FHE(FPARM)* 

READ FILE(F) SET(POINT)* 



READ FILE (FPARM) SET(POINT)* 
ENO 0* 

CLEANUP: ... 
END P* 

During the first execution of procedure Q, an end-of-file 
encountered by either READ statement will cause the 
execution of the CLOSE statement, and will close file F. 

During the second execution of procedure Q, an end-of- 
file encountered by the first READ statement will cause 
the GOTO statement to be executed, terminating the 
execution of both the on-unit and procedure Q. An 
end-of-file encountered by the second READ statement 
will cause the CLOSE statement to be executed, and 
will close file G. 



Figure 10-3. Referencing I/O Conditions 



Examples of normal and abnormal on-unit terminations are 
shown in figure 10-4. 



ON UFL PUT ... ; 

ON CONV BEGIN; 

PUT . . . ; 
END; 

ON UFL GO TO X; 

ON CONV BEGIN; 

GO TO X; 
END; 



Normal Termination 

Normal Termination 
Abnormal Termination 

Abnormal Termination 



Figure 10-4. On-Unit Termination 



RAISING A CONDITION 

When an enabled condition is raised, the current established 
on-unit for that condition is activated. It is an error to raise 
a disabled condition; raising a disabled condition can produce 
mode errors, program looping, or incorrect results. 
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Conditions that are not classified as computational cannot 
be disabled. When such conditions are raised, the associated 
system on-unit is always executed in the absence of a 
programmed on-unit. System action can be bypassed, 
however, by specifying a null on-unit. For example: 

ON ENDPAGE(SYSPRINT); 

This statement allows printing to be continued after the 
maximum number of lines are printed on a page. 



CONDITION BUILTIN FUNCTIONS 

Condition builtin functions provide information concerning 
interrupts. They can be referenced in an on-unit or a 
dynamic successor of an on-unit to determine the location 
and cause of the interrupt. The condition builtin function 
names and the values they return are as follows: 

ONCHAR Returns the character in ONSOURCE 

that caused the condition to be 
raised. 

ONCODE Returns an integer value indicating 

why the condition was raised. Refer 
to run-time diagnostics in appendix B. 

ON FILE Returns the name of the file constant 

that caused the condition to be 
raised; the name is returned even if 
the file reference specified a file 
variable. 

ONKEY Returns a character string containing 

the value of the KEY or KEYFROM 
expression. 

ONLOC Returns the name of the procedure 

containing the statement that caused 
the condition to be raised. 

ONSOURCE Returns the character string that 

caused CONVERSION to be raised. 

When a condition is raised, the system determines condition 
builtin function values and maintains the values as part of 
the information unique to the on-unit activation. The values 
are stacked and unstacked as on-units are activated and 
terminated. When a condition builtin function is referenced 
in an on-unit, the system returns the most recently 
established value of that condition builtin function. 

Values are only established for condition builtin functions 
applicable to the condition raised. A reference to a 
condition builtin function that does not have an established 
value yields a default value. 

Pseudovariables are available for ONCHAR and 
ONSOURCE. These can be used to modify the source data 
and allow program execution to continue. 



SNAP OUTPUT 

The SNAP option of the ON statement specifies that 
diagnostic information is to be written onto file SYSPRINT 
when the named condition is raised. SNAP output consists 
of the following information: 

• Error message 

• Name of the condition raised 



• Values of relevant condition builtin functions 

• Statement number near the source of the failure 

• Names of procedure blocks that are dynamic predeces- 
sors of the on-unit 

If the information cannot be transmitted to SYSPRINT, an 
abbreviated SNAP output is transmitted to the dayfile. This 
can occur under any of the following circumstances: 

• The declaration of SYSPRINT in the block is not a file 
constant declaration. 

• SYSPRINT is not open as a print file and cannot be 
opened as a print file. 

• The condition being raised is UNDF(SYSPRINT) or 
TRANSMIT(SYSPRINT). 

• SYSPRINT has insufficient record length specified. 
An example of SNAP output is shown in figure 10-5. 

SEQUENCE OF OPERATIONS 

When a condition is raised during program execution, the 
system takes the following steps in the order given: 

1. Determines whether the condition is currently enabled 
or disabled. If the condition is disabled, steps 2 and 3 
are bypassed except as noted under specific conditions. 

2. Outputs diagnostic information if the SNAP option is in 
effect for the current established on-unit. 

3. Activates the current established programmed or 
system on-unit, and establishes for the new on-unit 
activation the value of each condition builtin function 
that is pertinent to the condition. 

4. Continues execution. The results of continuing after 
normal termination of an on-unit, or when the condition 
is disabled, vary depending upon the condition that was 
raised and the manner in which it was raised. 

CONDITION DESCRIPTIONS 

Condition names appear in the following statements: 



ON statement 



REVERT 
statement 



SIGNAL 
statement 



An on-unit 
condition. 



is established for a 



The on-unit established for the condi- 
tion in the current block activation is 
removed. 



The raising 
simulated. 



of a condition is 



Condition name syntax consists of the condition name only 
with the following exceptions: 

I/O conditions require a parenthesized reference to the 
file. 

Programmer-named conditions require a parenthesized 
identifier. 

Conditions are presented in alphabetic order in the following 
paragraphs. Each condition description includes the circum- 
stances under which the condition is raised and the proc- 
essing that occurs on normal termination of the on-unit. 



60388100 A 



10-5 



+++++ ERROR CONDITION RAISED WITH ONCODE * 9 
********************************* 

SNAP GENERATED UPON OCCURRENCE OF ERROR 
ONCODE = 9 

■■•+++ ACTIVE PROCEDURES AND ON-UNITS +++ 
STMT / EXT. -P.ROC / PROCEDURE / ENTRY OR ON-UNIT 



/ *SYSTEM 
6 / BEGIN 



I 

I BEGIN 



/ ON-ERROR 
/ BEGIN 



********************************* 



RPV - PREVIOUS ERROR CONDITIONS RESET. 



Figure 10-5. Sample SNAP Output 



Any of the conditions can be simulated by execution of a 
SIGNAL statement. On normal termination of the on-unit, 
program execution continues with the statement following 
the SIGNAL statement. 



AREA CONDITION 

The AREA condition is raised when an area is not large 
enough to contain a generation being allocated for a based 
variable, or is not large enough to contain an area value 
being assigned to the area variable. In the following 
example, the ALLOCATE statement raises the AREA 
condition because each generation allocated within an area 
requires one extra word for system control information. 

DCL A AREA(IOO); 

DCL B(100) FIXED DEC BASED(P); 

ALLOC B IN(A); /*RAISES AREA*/ 

The condition is raised during the execution of the following 
statements: 



ALLOCATE A based variable is being allocated 

within an area and the referenced 
area does not have enough space to 
contain the generation. Existing gen- 
erations Cannot be repositioned to 
obtain space because offset values 
must be preserved. 

Assignment An area value is being assigned to an 

area variable and the target area is 
not large enough to contain the area 
value. Existing generations cannot be 
repositioned to obtain space because 
offset values in the target must 
match those in the source area. 

On normal termination of the on-unit during ALLOCATE 
statement processing, the IN option is reevaluated and the 
allocation is attempted again. This can cause the AREA 
condition to be raised repeatedly unless the on-unit frees 
sufficient space in area storage. The on-unit activation 
must not be terminated by a nonlocal GOTO if the AREA 
condition was raised during ALLOCATE statement 
processing. 

On normal termination of the on-unit during assignment 
statement execution, the result of the assignment operation 
is unpredictable. If there are remaining assignment targets, 



execution continues with the next one; otherwise, program 
execution continues with the statement following the assign- 
ment statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the AREA on-unit is activated. 

The system AREA on-unit writes an informative message on 
SYSPRINT and raises the ERROR condition. 



CONDITION/ COND CONDITION 

A CONDITION condition is a programmer-defined condition 
that is raised only by SIGNAL statement execution. The 
condition is referenced by keyword CONDITION or COND 
followed by an identifier in parentheses. Each unique 
identifier declares a separate condition. The identifier is 
contextually declared as a condition with the EXTERNAL 
attribute. For example: 



ON CONDITION(MYNAME) BEGIN; 



END; 



SIGNAL CONDITION(MYNAME); 

On normal termination of the on-unit, program execution 
continues with the statement following the SIGNAL 
statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when any CONDITION on-unit is 
activated. 

The system CONDITION on-unit for any programmer-named 
condition writes an informative message on SYSPRINT and 
returns control to the point of interrupt. 



CONVERSION CONV CONDITION 

The CONVERSION condition is raised when a character 
string value is invalid for conversion to an arithmetic, bit 
string, or pictured target data type. Such conversions occur 
during stream I/O, expression evaluation, and assignment. 
For example: 

DCL A FIXED DEC; 
A='123A4 , ; /*RAISES CONV*/ 
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Character string conversions are executed character by 
character, from left to right. When an invalid character is 
encountered, the conversion attempt stops and the 
CONVERSION condition is raised. The value of the target is 
undefined, and remains undefined until the conversion is 
successfully completed or some subsequent statement exe- 
cution assigns it a value. 

On normal termination of the on-unit, the entire conversion 
is attempted again using the original source string. The user 
should have modified this string by assigning a value to the 
ONCHAR or ONSOURCE pseudovariable; if the user does 
not modify the string, the program might loop indefinitely. 
If the condition occurs during I/O statement execution, the 
on-unit must not have closed the file being used by the 
statement. 



On normal termination of the on-unit, the action taken 
depends on the circumstances under which the condition was 
raised. 

If the condition was raised during an attempt to write 
data (including writing blank data for an X format or 
COLUMN format), the data not yet transmitted is 
written on return from the on-unit. 

If the condition was raised during execution of a LINE 
format, LINE option, SKIP format, or SKIP option, the 
format item or option is considered to be completed. 

In either case, processing of the PUT or GET statement 
continues. The file must not have been closed in the 
meantime. 



If the CONVERSION condition is disabled, execution con- 
tinues and program results are unpredictable. In some cases 
ERROR will be raised; the ONCODE will indicate the 
CONVERSION error. If CONVERSION is disabled, SIGNAL 
CONVERSION acts like a null statement. 

New values are established for condition builtin functions 
ONCODE, ONLOC, ONSOURCE, ONCHAR, and possibly 
ONFILE and ONKEY when the CONVERSION on-unit is 
activated. ONFILE is assigned a file name if the conversion 
is being performed during an I/O statement execution. The 
ONCHAR value is the character that caused the CONVER- 
SION condition to be raised. The ONSOURCE value is the 
entire source string. 

The system CONVERSION on-unit writes an informative 
message on SYSPRINT and raises the ERROR condition. 

ENDFILE CONDITION 

An ENDFILE condition is raised when an input statement 
attempts to read or skip past the end of a CRM file. The 
condition only occurs during execution of a GET statement 
or during execution of a READ statement without a KEY 
option. The ENDFILE condition is raised on each subsequent 
attempt to read data from the CRM file until the file 
associated with it is closed. Each of the following 
statements can raise an ENDFILE condition: 

GET FILE(F) EDIT(A)(A); 

READ FILE(G) SET(P); 

READ FILE(G) SET(P) KEYTO(K); 

On normal termination of the on-unit, program execution 
continues with the statement following the GET or READ 
statement. 

New values are established for condition builtin functions 
ONCODE, ONLOC, and ONFILE when any ENDFILE on-unit 
is activated. 

The system ENDFILE on-unit for any file writes an 
informative message on SYSPRINT and raises the ERROR 
condition. 



ENDPAGE CONDITION 

An ENDPAGE condition is raised when the program 
attempts to begin a line that would be beyond the page size 
defined for a file. The condition can occur during execution 
of a PUT statement or during execution of a GET statement 
with a COPY option while transmitting data to the copy file. 
The condition only occurs for files with the attributes 
STREAM OUTPUT PRINT. For example: 



PUT LINE(30). 
PUT LINE(20). 



/♦RAISES ENDPAGE*/ 



When the condition is raised, the current line number has the 
value page size + 1, but no data has yet been transmitted to 
that line. If the on-unit does not cause the line number to 
be reset by starting a new page, line number will be 
incremented beyond page size by subsequent data trans- 
mission until a new page is established. In effect, there will 
be no page ejection. ENDPAGE for that file will not be 
raised again until the line number has been set to a value 
less than or equal to page size and subsequently exceeds 
page size. Line number can be set to 1 by any of the 
following: 

• Execution of a PUT statement with a PAGE option 

• Exe- il ion of a PUT statement with a LINE option with 
no exorcssiuii or with an expression that has a value of 1 

• Use of a PAGE format item 

• Use of a LINE format item with no expression or with 
an expression that has a value of 1 

New values are established for condition builtin functions 
ONCODE, ONLOC, and ONFILE when any ENDPAGE on- 
unit is activated. 

The system ENDPAGE on-unit for any file begins a new 
page. If the condition was raised by SIGNAL statement 
execution and the file does not have the attribute PRINT, 
the ERROR condition is raised. 



ERROR CONDITION 

The ERROR condition is raised under the following 
circumstances: 



As standard action for most system on-units. No new 
condition builtin function values are established. 



• As standard action for certain programming errors. 
These programming errors include mathematical builtin 
function errors, exponentiation errors during expression 
evaluation, and failure to open a file within an 
UNDEFINEDFILE on-unit. New values are established 
for condition builtin functions ONCODE and ONLOC. 
For example: 

X=SQRT(-5); /*RAISES ERROR*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes program execution to 
be aborted. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 
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The system ERROR on-unit writes an informative message 
on SYSPRINT and aborts the program. The FINISH 
condition is not raised. 



FINISH CONDITION 

The FINISH - condition is raised under the following 
circumstances: 

• Control reaches a RETURN statement or END state- 
ment that would cause the first activation of the main 
procedure to be terminated. 

• A STOP statement is executed. 

When the FINISH condition is raised during execution of a 
RETURN or END statement, the first activation of the main 
procedure is the only one still active. A programmed 
FINISH on-unit is present only if one was established by an 
ON statement execution in that activation. 

When the FINISH condition is raised by STOP statement 
execution, all the blocks that were active at that time are 
still active. 

On normal termination of the on-unit, control is returned to 
the point of interrupt, program termination procedures are 
completed, and control is returned to the operating system. 
Program termination can be avoided by abnormal termi- 
nation of the FINISH on-unit. 

If the FINISH condition was raised by SIGNAL statement 
execution, the program is not terminated. The on-unit is 
executed and control is returned to the statement following 
the SIGNAL statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the FINISH on-unit is activated. 

The system FINISH on-unit returns control to the point of 
interrupt. 



FIXEDOVERFLOW/ FOFL CONDITION 

The FIXEDOVERFLOW condition is raised when the result of 
a fixed point calculation exceeds the maximum possible 
precision. The maximum precision for a binary fixed point 
value is 48 binary digits; the maximum precision for a 
decimal fixed point value is 14 decimal digits. The condition 
can occur during intermediate calculations. 

FIXEDOVERFLOW should not be confused with the SIZE 
condition. The FDCEDOVERFLOW condition is raised when a 
value that is calculated during expression evaluation exceeds 
the maximum possible precision. SIZE is raised when a value 
being converted or assigned is too large for the declared or 
default precision of the target. For example: 

DCL A(2) FIXED DEC(10,0) INIT(123456,1234567890); 
DCL B FDCED DEC(10,0); 

B=A(2)*A(2); /*RAISES FOFL DURING MULTIPLY*/ 
B=A(1)*A(1);/*RAISES SIZE DURING ASSIGNMENT*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 



If the FIXEDOVERFLOW condition is disabled, execution 
continues from the point of interrupt and program results 
are unpredictable. If FOFL is disabled, SIGNAL FOFL acts 
like a null statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the FIXEDOVERFLOW on-unit 
is activated. 

The system FIXEDOVERFLOW on-unit writes an informative 
message on SYSPRINT and raises the ERROR condition. 



KEY CONDITION 

A KEY condition is raised under one of the following 
circumstances: 

• The value of the KEY option does not match any 
existing key value in the CRM file. This can be 
detected during execution of a READ, DELETE, or 
REWRITE statement. 

• The value of the KEYFROM option duplicates an 
existing key value in the CRM file. This can be 
detected during execution of a WRITE or LOCATE 
statement, or during explicit or implicit file closing. 
For example: 

WRITE FILE(F) KEYFROM(K) FROM(G); 
WRITE FILE(F) KEYFROM(K) FROM(H); 
/♦RAISES KEY*/ 

• The key value is not compatible with the selected 
CYBER Record Manager file organization. 

On normal termination of the on-unit, program execution 
continues with the statement following the I/O statement. 

New values are established for condition builtin functions 
ONCODE, ONLOC, ONKEY, and ONFILE when any KEY on- 
unit is activated. 

The system KEY on-unit for any file writes an informative 
message on SYSPRINT and raises the ERROR condition. 



OVERFLOW/OFL CONDITION 

The OVERFLOW condition is raised when the result of a 
floating point calculation yields an exponent that exceeds 
the maximum allowed by the hardware. The condition can 
occur during intermediate calculations. For example: 

DCL A FLOAT DEC; 
A=1.E200**2; /*RAISES OFL*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 

If the OVERFLOW condition is disabled, execution continues 
from the point of interrupt and program results are 
unpredictable. If OFL is disabled, SIGNAL OFL acts like a 
null statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the OVERFLOW on-unit is 
activated. 
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The system OVERFLOW on-unit writes an informative 
message on SYSPRINT and raises the ERROR condition. 

RECORD CONDITION 

A RECORD condition is raised during execution of the 
following: 

• READ statement 

The size of the generation identified by the INTO 
option is different from the length of the record 
read from the CRM file. 

• WRITE or REWRITE statement 

The CRM file has W, Z, or S type records and the 
size of the generation identified by the FROM 
option is larger than the maximum record length 
for the CRM file; or the CRM file has F type 
records and the size of the generation is different 
from the record length for the CRM file. In the 
following example, the WRITE statement raises the 
RECORD condition because the variable A requires 
10 additional characters for overhead: 

DCL F RECORD OUTPUT ENWRT=F,FL=1000; 

DCL A CHAR(IOO) VARYING; 

WRITE FILE(F) FROM(A); /*RAISES RECORD*/ 

• WRITE or LOCATE statement 

A record being written from an allocated buffer is 
longer than the maximum record length for the 
CRM file. 

• Explicit or implicit file closing 

A record being written from an allocated buffer is 
longer than the maximum record length for the 
CRM file. 

When the condition is raised during READ statement 
execution, the value of the target generation identified by 
the INTO option is as follows: 

If the record is shorter than the target generation, the 
entire record is contained in the first part of the 
generation; the remainder of the generation has an 
undefined value. 

If the record is longer than the target generation, only 
the first part of the record is contained in the 
generation; the excess portion is not transferred to the 
target generation. 

When the condition is raised during output statement 
execution, the record has not been written when the on-unit 
is activated. 



SIZE CONDITION 

The SIZE condition is raised during conversion of a value to 
a fixed point or pictured numeric target type when the 
converted value is too large for the precision of the target; 
that is, loss of significant digits would occur. For example: 

DCL A(2) FDCED DEC(10,0) INIT(123456,1234567890); 
DCL B FIXED DEC(10,0); 

B=A(1)*A(1); /*RABES SIZE DURING ASSIGNMENT*/ 
B=A(2)*A(2); /*RAISES FOFL DURING MULTIPLY*/ 

The SIZE condition can be raised under the following 
circumstances: 

• Conversion to fixed point 

During assignment or during execution of an E or F 
format item by a PUT statement, SIZE is raised if 
the number of digits available to the left of the 
decimal or binary point is not large enough to 
contain the integer part of the converted value. 

• Conversion to fixed point during intermediate calcu- 
lations 

Conversion from FLOAT to BIT requires inter- 
mediate conversion to FIXED BINARY. SIZE can 
be raised during conversion to FIXED BINARY. 

Conversion from CHARACTER to arithmetic 
during expression evaluation such as (l.E20+'2.E20') 
requires intermediate conversion to FDXED 
DECIMAL (14,0) even if the type of the entire 
expression is FLOAT. SIZE can be raised during 
this intermediate conversion. 

• Conversion to pictured numeric during edit through 
picture 

During assignment or during execution of a P 
format by a PUT statement, SIZE is raised when 
the picture is not large enough to contain the 
integer part of the value; or when the value is 
negative and the picture does not contain any of 
the sign specification codes S + - T I R CR or DB. 

During execution of an E or F format item by a 
PUT statement, SIZE is raised if the implied 
picture is not large enough to contain the integer 
part of the converted value. 

During execution of an E format item by a PUT 
statement, SIZE is raised if the implied picture is 
not large enough to contain the exponent, signs, 
decimal point, and E. 



On normal termination of the on-unit activated during 
execution of a READ statement, program execution con- 
tinues with the statement following the READ statement. 
On normal termination of the on-unit activated during 
execution of a REWRITE statement, statement processing 
continues from the point of interrupt; the file must not have 
been closed. On normal termination of the on-unit activated 
during execution of a WRITE or LOCATE statement or an 
explicit/implicit file closing, the ERROR condition is raised. 

New values are established for condition builtin functions 
ONCODE, ONLOC, and ONFILE when any RECORD on-unit 
is activated. A new value is established for condition builtin 
function ONKEY if a KEY option is associated with the 
statement. 

The system RECORD on-unit for any file writes an 
informative message on SYSPRINT and raises the ERROR 
condition. 



Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 

If the SIZE condition is disabled, execution continues from 
the point of interrupt and program results are unpredictable. 
In some cases ERROR will be raised; the ONCODE will 
indicate the SIZE error. If SIZE is disabled, SIGNAL SIZE 
acts like a null statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the SIZE on-unit is activated. 

The system SIZE on-unit writes an informative message on 
SYSPRINT and raises the ERROR condition. 
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STORAGE CONDITION 

The STORAGE condition is raised when an attempt is 
made to allocate storage and the required amount is not 
available. The condition can be raised during allocation of 
storage for variables of any storage type, for block 
activations, for dynamic loading of system routines, and 
so forth. The condition is not raised during allocation of 
based variables in areas; in this case the AREA condition 
is raised. The most common causes of the STORAGE 
condition are incorrect extents, insufficient field length, 
uncontrolled looping involving recursive procedure 
invocations, and failure to free based variables that are 
not allocated in areas. For example: 

DCL A(10) FIXED BASED; 

DO WHILE('l'B); /*LOOPS FOREVER*/ 

ALLOC A SET(P); /*RAISES STORAGE*/ 

END; 

On normal termination of the on-unit, allocation is 
attempted again. If the on-unit has freed sufficient 
storage, the allocation is made and execution continues 
normally. If the on-unit has not freed sufficient storage, 
the STORAGE condition is raised again. If the allocation 
cannot be made after the STORAGE condition has been 
raised twice, the ERROR condition is raised. 

Abnormal termination of the STORAGE on-unit is 
prohibited. 

If the STORAGE condition is signaled, both normal and 
abnormal termination of the on-unit are permitted. For 
normal termination of the on-unit, program execution 
continues with the statement following the SIGNAL 
statement. 

The system STORAGE on-unit writes an informative 
message on SYSPRINT and raises the ERROR condition. 

NOTE 

The raising of the STORAGE condition requires 
storage allocation. If insufficient storage is 
available for this, or if insufficient storage is 
available for any allocation while a STORAGE 
on-unit is active, the ERROR condition will be 
raised. 



STRINGRANGE/STRG CONDITION 

The STRINGRANGE condition is raised during evaluation of 
a SUBSTR builtin function or pseudovariable when the 
indicated substring is not entirely contained in the string 
specified. For example: 

DCL(A,B) CHAR(IO); 
B=SUBSTR(A,5,8); /*RAISES STRG*/ 
B=SUBSTR(A,10,2); /*RAISES STRG*/ 

If the substring has a length of zero, it is legal to reference 
n+1 where n is the last character in the string. For 
example: 

DCL(A,B) CHAR(IO); 

B=SUBSTR(A,11,0); /*DOES NOT RAISE STRG*/ 

B=SUBSTR(A,12,0); /*RAISES STRG*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 



I 



The STRINGRANGE condition is raised in the same way, 
regardless of whether it is enabled or disabled. If STRG is 
disabled, SIGNAL STRG acts like a null statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the STRINGRANGE on-unit is 
activated. 



The system on-unit writes an informative message on 
SYSPRINT and raises the ERROR condition. | 



SUBSCRIPTRANGE/SUBRG CONDITION 

The SUBSCRIPTRANGE condition is raised when an array 
subscript is evaluated and is found to be outside the bounds 
of the corresponding dimension. For example: 

DCL A(5); 

A(6)=3; /*RAISES SUBRG*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 

If the SUBSCRIPTRANGE condition is disabled, execution 
continues from the point of interrupt and program results 
are unpredictable. If SUBRG is disabled, SIGNAL SUBRG 
acts like a null statement. 



New values are established for condition builtin functions 
ONCODE and ONLOC when the SUBSCRIPTRANGE on-unit 
is activated. 



The system on-unit writes an informative message on _ 
SYSPRINT and raises the ERROR condition. | 



TRANSMIT CONDITION 

A TRANSMIT condition is raised when data cannot be 
properly transmitted to or from a CRM file; that is, when 
parity error status is returned by the CRM I/O processors. 
The condition can be raised during the following operations: 

I/O statement execution 

Implicit file closing during program termination 



When the condition is raised, the value of the data that was 
being transmitted is undefined at the target. 



On normal termination of the on-unit, program execution 
continues with the next statement. 



New values are established for condition builtin functions 
ONCODE, ONLOC, and ONFILE when any TRANSMIT on- 
unit is activated. A new value is established for condition 
builtin function ONKEY if a KEY or KEYFROM option is 
associated with the statement or implicit file closing being 
executed. 



The system TRANSMIT on-unit for any file writes an 
informative message on SYSPRINT and raises the ERROR 
condition. 



10-10 



60388100 B 



UNDEFINEDFILE/UNDF CONDITION 

An UNDEFINEDFILE condition is raised when a file opening 
fails. The condition can occur during an explicit file opening 
(OPEN statement) or an implicit file opening when the FILE 
or COPY option of an I/O statement refers to the unopened 
file. The most common causes of file opening failure are 
conflict of file attributes and inability to associate the 
specified CRM file with the file constant. When the on-unit 
is activated, the file is not open. For example: 

DCL F RECORD; 

PUT FILE(F) LIST(A); /*RAISES UNDF*/ 

On normal termination of the on-unit during implicit file 
opening, the ERROR condition is raised if the file is still not 
open. If the file is open, processing continues normally. 

On normal termination of the on-unit during OPEN state- 
ment execution, statement processing continues with the 
next file to be opened if additional files are specified in the 
statement. If additional files are not specified, program 
execution continues with the statement following the OPEN 
statement. 

New values are established for condition builtin functions 
ONCODE, ONLOC, and ONFILE when any UNDEFINEDFILE 
on-unit is activated. 

The system UNDEFINEDFILE on-unit for any file writes an 
informative message on SYSPRINT and raises the ERROR 
condition. 



UNDERFLOW/UFL CONDITION 

The UNDERFLOW condition is raised when the result of a 
floating point calculation yields an exponent that is smaller 
than the minimum allowed by the hardware. For example: 

A=1.5E-200**2; /*RAISES UFL*/ 



If termination of the on-unit is normal or if the condition is 
disabled, processing continues from the point of interrupt. 
The result of the operation that raised UNDERFLOW is 
taken to be zero. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the UNDERFLOW on-unit is 
activated. 

The system UNDERFLOW on-unit writes an informative 
message on SYSPRINT and returns control to the point of 
interrupt. 



ZERODIVIDE/ZDIV CONDITION 

The ZERODIVIDE condition is raised when an attempt is 
made to divide by zero. The condition can occur for fixed 
point and floating point division operations. When the on- 
unit is activated, the value of the quotient is undefined. For 
example: 

ZERO=0.j 

A=l./ZERO; /*RAKES ZDIV*/ 

Normal termination of the on-unit is prohibited. An 
attempted normal termination causes the ERROR condition 
to be raised. Abnormal termination of the on-unit is 
permitted. An abnormal termination allows program execu- 
tion to continue. 

If the ZERODIVIDE condition is disabled, execution con- 
tinues from the point of interrupt and program results are 
unpredictable. If ZDIV is disabled, SIGNAL ZDIV acts like a 
null statement. 

New values are established for condition builtin functions 
ONCODE and ONLOC when the ZERODIVIDE on-unit is 
activated. 

The system ZERODIVIDE on-unit writes an informative 
message on SYSPRINT and raises the ERROR condition. 
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BUILTIN FUNCTIONS 
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PL/I supports a number of functions, referred to as builtin 
functions, which are provided as an integral part of the 
language. Each is identified by a builtin function name. 
When the name is appropriately referenced in a PL/I 
program, the operation indicated by the name is performed 
on the arguments passed. 

An identifier is contextually declared with the BUILTIN 
attribute whenever the builtin function name appears as a 
function reference with an argument list. A builtin function 
usually does not require an explicit DECLARE statement 
declaration. If the builtin function name is used in a 
containing block for some other purpose, however, an 
explicit declaration must be made to reestablish the name as 
the name of the builtin function. 

Builtin function arguments are enclosed in parentheses and 
follow the builtin function name. For example: 

V = HBOUND(ARRAYl,2); 

HBOUND is an array manipulation builtin function 
that determines the upper bound of an array 
dimension. 



CONDITION BUILTIN FUNCTIONS 

Condition builtin functions are used to acquire information 
about the circumstances under which a condition has been 
raised. Condition builtin function values are established 
when applicable conditions are raised. A stack of values is 
maintained for each condition builtin function. The values 
are stacked and unstacked as on-units are activated and 
terminated. 

A reference to a condition builtin function returns the value 
associated with the most recent applicable on-unit activa- 
tion in the dynamic stack. A reference to a condition builtin 
function that does not have an established value yields a 
default value as indicated in the individual descriptions. 



DATE AND TIME BUILTIN FUNCTIONS 

Date and time builtin functions are used to obtain the 
current date and time. The value returned by each of these 
functions is a character string. 



The first argument, ARRAY1, is the name of the 
array. 

The second argument, 2, specifies the dimension. 

V is the target variable designated to receive the 
result. 

Some builtin functions do not require arguments; these are 
represented by the builtin function name followed by a set 
of empty parentheses. The empty parentheses can be 
omitted; if they are omitted from every reference to a 
particular builtin function within any external procedure, 
that builtin function name must be explicitly declared with 
the BUILTIN attribute. 



MATHEMATICAL BUILTIN FUNCTIONS 

Mathematical builtin functions are standard mathematical 
functions. Arguments must be expressions that yield scalar 
computational values. Each argument is converted to 
floating point; conversion to floating point arithmetic is as 
described in section 7, Data Manipulation. The value 
returned by each of these functions is a floating point value 
with mode, base, and precision the same as those of the 
converted argument. 

For information on the accuracy of mathematical builtin 
functions, see the FORTRAN Common Library 
Mathematical Routines Reference Manual. 



BUILTIN FUNCTION CLASSIFICATION 



Builtin functions can be grouped into nine functional 
categories. The categories and their respective functions 
are listed in table 11-1. A complete summary of mathe- 
matical builtin functions is included in table 11-2. 



ARITHMETIC BUILTIN FUNCTIONS 

Arithmetic builtin functions are used to facilitate arith- 
metic calculations. Arguments must be expressions that 
yield scalar computational values. Each argument is 
converted to arithmetic as described in section 7, Data 
Manipulation. The value returned by each of these functions 
is arithmetic. 



PICTURE HANDLING BUILTIN FUNCTION 

The picture handling builtin function is used to perform 
validity checking on a pictured item. The function deter- 
mines whether or not the value of an item is valid according 
to its numeric or character picture. The value returned by 
this function is a bit string. 



STORAGE CONTROL BUILTIN FUNCTIONS 

Storage control builtin functions are used to assist the 
programmer in manipulating controlled variables, based 
variables, and areas. 



ARRAY MANIPULATION BUILTIN FUNCTIONS 



Array manipulation builtin functions are used to acquire 
information about arrays. The value returned by each of 
these functions is a fixed binary integer. 



STREAM I/O BUILTIN FUNCTIONS 

Stream I/O builtin functions are used to obtain the current 
line and page number of stream print files. The value 
returned by each of these functions is a fixed binary integer. 
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TABLE 11-1. CLASSIFICATION OF BUILTIN FUNCTIONS 



Functional Category 


Builtin Function Name 


Value Returned 


Arithmetic 


ABS 


Absolute value of an argument. 




ADD 


Sum of two arguments with specified precision. 




BINARY 


Argument value converted to binary with specified precision. 




CEIL 


Smallest integer that is greater than or equal to an argument value. 




DECIMAL 


Argument value converted to decimal with specified precision. 




DIVIDE 


Quotient of two arguments with specified precision. 




FIXED 


Argument value converted to fixed-point scale with specified precision. 




FLOAT 


Argument value converted to floating-point scale with specified 
precision. 




FLOOR 


Largest integer that does not exceed an argument value. 




MAX 


Value of the argument with the largest value. 




MIN 


Value of the argument with the smallest value. 




MOD 


First argument modulo second argument. 




MULTIPLY 


Product of two arguments with specified precision. 




PRECISION 


Argument value converted to a given precision. 




ROUND 


Value of an argument rounded to a specified number of digits. 




SIGN 


Indication of whether an argument is positive, negative, or zero. 




SUBTRACT 


Difference between two arguments with specified precision. 




TRUNC 


Argument value truncated to an integer. 


Array Manipulation 


DIMENSION 


Current extent of an array dimension. 




HBOUND 


Upper bound of an array dimension. 




LBOUND 


Lower bound of an array dimension. 


Condition 


ONCHAR 


Character that caused the CONVERSION condition to be raised. 




ONCODE 


Code that identifies a condition and circumstances under which it was 
raised. 




ONFILE 


Name of the file for which an I/O condition was raised. 




ONKEY 


Key value for which an I/O condition was raised. 




ONLOC 


Name of the entry point used to invoke the procedure in which a 
condition was raised. 




ONSOURCE 


Character-string value that caused the CONVERSION condition to be 
raised. 


Date and Time 


DATE 


Current date. 




TIME 


Current time. 


Mathematical 


ACOS 


Arccosine in radians. 




ASIN 


Arcsine in radians. 




ATAN 


Arctangent in radians. 




ATAND 


Arctangent in degrees. 




ATANH 


Inverse hyperbolic tangent. 




COS 


Trigonometric cosine of an argument in radians. 




COSD 


Trigonometric cosine of an argument in degrees. 




COSH 


Hyperbolic cosine of an argument. 




ERF 


Error function. 
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TABLE 11-1. CLASSIFICATION OF BUILTIN FUNCTIONS (Cont'd) 



Functional Category 


Builtin Function Name 


Value Returned 


Mathematical 
(continued) 


ERFC 

EXP 

LOG 

LOGIO 

LOG2 

SIN 

SIND 

SINH 

SQRT 

TAN 

TAND 

TANH 


Complementary error function. 

Value of e raised to a given power. 

Natural logarithm (base e). 

Common logarithm (base 10). 

Base 2 logarithm. 

Trigonometric sine of an argument in radians. 

Trigonometric sine of an argument in degrees. 

Hyperbolic sine of an argument. 

Square root. 

Tangent of an argument in radians. 

Tangent of an argument in degrees. 

fiyperbolic tangent of an argument. 


Picture Handling 


VALID 


Indication of the validity of a pictured item. 


Storage Control 


ADDR 
ALLOCATION 

EMPTY 
NULL 
OFFSET 
POINTER 


Pointer value identifying the generation of storage for a variable. 

Value indicating the number of generations currently allocated for a 
controlled variable. 

Empty area value wbich, if assigned, frees all allocations in an area. 

Null pointer value. 

Pointer argument value converted to offset. 

Offset argument value converted to pointer. 


Stream I/O 


LINENO 
PAGENO 


Current line number of a stream print file. 
Current page number of a stream print file. 


String Handling 


AFTER 

BEFORE 

BIT 

BOOL 

CHARACTER 

COLLATE 

COPY 

DECAT 

HIGH 

INDEX 

LENGTH 

LOW 

REVERSE 

SUBSTR 

TRANSLATE 

UNSPEC 
VERIFY 


Portion of a string that appears to the right of a substring. 

Portion of a string that appears to the left of a substring. 

Argument value converted to bit string. 

Bit-string result of a specified boolean operation. 

Argument value converted to character string. 

Collating sequence in use. 

String formed by repeated concatenation. 

String composed of portions of a given string. 

String consisting of copies of the highest character in the collating 
sequence. 

Position of a substring within a string. 

Current length of a character or bit string or a pictured variable. 

String consisting of copies of the lowest character in the collating 
sequence. 

Argument string with characters positioned in reverse order. 

Specified substring of an argument string. 

Character string on which specified character substitutions have been 
performed. 

Internal representation of an argument value in bit-string form. 

Position of the first character in one string that does not appear in a 
second string. 
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TABLE 11-2. SUMMARY OF MATHEMATICAL BUILTIN FUNCTIONS 



Syntax 


Name 


Domain 


Definition 


Range 


ACOS(y) 


arccosine (result in radians) 


lyl<l 


cos" (y) 


0< ACOS(y)<7r 


ASIN(y) 


arcsine (result in radians) 


lyl<l 


sin" (y) 


-tt/2< ASIN(y)<7r/2 


ATAN(y) 


arctangent 
(result in radians) 




tan _1 (y) 


-ir/2< ATAN(y)<ir/2 


ATAN(y,x) 


arctangent 
(result in radians) 


x<0 & y<0 
x=0 & y<0 


- f+ tan _1 (y/x) 

-7T/2 


- Tt< ATAN(y,x) < -tt/2 






x>0 


tan _1 (y/x) 


-ir/2< ATAN(y,x)<7r/2 






x=0 &y>0 


7T/2 








x<0 & y>0 


it + tan (y/x) 


v/2 < ATAN(y,x) < it 






x=0 & y=0 


error 




ATAND(y) 


arctangent 
(result in degrees) 




(180/ir)*ATAN(y) 


-90 < ATAND(y) < 90 


ATAND(y.x) 


arctangent 
(result in degrees) 


— i(x=0 &y=0) 
x=0 & y=0 


(180Ar)*ATAN(y,x) 
error 


-180<ATAND(y,x) < 180 


ATANH(y) 


inverse hyperbolic tangent 


lyl < 1 


tanh _1 (y) 


-17.32 < ATANH(y) < 17.32 


COS(x) 


trigonometric cosine 
(argument in radians) 


Ixl < T *2 46 


cos(x) 


-1 < COS(x) < 1 


COSD(x) 


trigonometric cosine 
(argument in degrees) 


47 


cos(x) 


-1 < COSD(x) < 1 


COSH(x) 


hyperbolic cosine 


Ixl < 742.36 


cosh(x) 


1 < COSH(x) 


ERF(x) 


error function 




erf(x)= ^ f e -t dt 
■Jir-'O 


-1 < ERF(x) < 1 


ERFC(x) 


complementary error 
function 


x< 25.923 


erfc(x) = p f e _t dt 
= 1 - erf (x) 


< ERFC(x) < 2 


EXP(x) 


exponential 


-675.84 < x < 741.67 


e x 


< EXP(x) 


LOG(x) 


natural logarithm 


x>0 


log e (x) 




LOGlO(x) 


common logarithm (base 10) 


x>0 


log 10 (x) 




LOG2(x) 


logarithm (base 2) 


x>0 


log 2 (x) 




SIN(x) 


trigonometric sine 
(argument in radians) 


Ixl < tt*2 46 


sin(x) 


-1 < SIN(x) < 1 


SIND(x) 


trigonometric sine 
(argument in degrees) 


Ixl < 2 4 ' 


sin(x) 


-1 < SIND(x) < 1 


SINH(x) 


hyperbolic sine 


Ixl < 742.36 


sinh(x) 




SQRT(x) 


square root 


x>0 


x 0.5 


SQRT(x) > 


TAN(x) 


trigonometric tangent 
(argument in radians) 


Ixl < it *2 46 


tan(x) 




TAND(x) 


trigonometric tangent 
(argument in degrees) 


lxl< 2 47 ' 


tan(x) 




TANH(x) 


hyperbolic tangent 




tanh(x) 


-1< TANH(x) <1 
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STRING HANDLING BUILTIN FUNCTIONS 



ABS BUILTIN FUNCTION 



String handling builtin functions are used for manipulating 
bit and character strings. The arguments must be expres- 
sions that have scalar computational values. The value 
returned by each of these functions is a character or bit 
string, or a fixed binary integer. 



PSEUDOVARIABLES 

PL/I supports five pseudovariables, which are counterparts 
of the following builtin functions: 

ONCHAR 

ONSOURCE 

PAGENO 

SUBSTR 

UNSPEC 

A pseudo variable is a builtin function name that is used as 
the target of an assignment operation. Pseudovariables can 
be used in the following ways: 

• As an assignment target in an assignment statement 

• As an index in a DO statement or in an embedded-do in 
a GET or PUT statement 

• As a key target in a KEYTO option of a READ 
statement 

• As an output target in the STRING option of a PUT 
statement 

• As an input target in the LIST or EDIT option of a GET 
statement 

Arguments for a pseudovariable correspond to those speci- 
fied for the associated builtin function. Arguments are 
enclosed in parentheses and follow the pseudovariable name. 
For example: 

PAGENO(OUTFILE) = 1; 

PAGENO is a stream I/O pseudovariable that 
assigns a value to the current page number for a 
stream print file. 

The argument, OUTFILE, specifies the name of the 
file. 



The expression, 1, is the value that is to be 
assigned to the current page number of OUTFILE. 

Some pseudovariables do not require arguments; they are 
represented by the pseudovariable name followed by a set of 
empty parentheses. The empty parentheses can be omitted; 
if they are omitted from every reference to a particular 
pseudovariable, that pseudovariable name must be explicitly 
declared with the BUILTIN attribute. 



BUILTIN FUNCTION AND 
PSEUDOVARIABLE DESCRIPTIONS 

Builtin functions and corresponding pseudovariables, where 
appropriate, appear in alphabetic order. The descriptions of 
pseudovariables contain brief explanations of the differences 
in usage between the pseudovariables and the corresponding 
builtin functions. The builtin function description contains 
more specific information. 



The ABS builtin function returns the absolute value of an 
argument. ABS syntax is shown in figure 11-1. 




Figure 11-1. ABS Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. The argument is evaluated and con- 
verted to an arithmetic value. The result of the function is 
the positive real value of the converted argument. The 
base, scale, and precision of the result are those of the 
converted argument. 

ABS builtin function examples are shown in figure 11-2. 



319 
-3.4500 
2.3E*013 
•5.13E-070 



ABS(X) 

319 
3.4500 
2.3E*013 
5.13E-070 



Figure 11-2. ABS Builtin Function Examples 



ACOS BUILTIN FUNCTION 

The ACOS builtin function returns the arccosine of a value; 
the result is expressed in radians. ACOS syntax is shown in 
figure 11-3. 



ACOS(y) 



Figure 11-3. ACOS Builtin Function Syntax 



Argument y can be an expression; the value must be scalar 
and computational. The argument is evaluated and con- 
verted to floating point. The mode, base, scale, and 
precision of the result are those of the converted argument. 

ACOS builtin function examples are shown in figure 11-4. 



V 


ACOS(Y) 


1.00000E+000 


O.OOOOOE»000 


5.00000E-Q01 


1.04720E*000 


O.00O0OE«000 


1.57080£*000 


-S.OOOOOE-001 


2.09440E+000 


-1.00000E*000 


3.14159E*000 


-1.00000B 


3.1E*000 


-1 


3E»000 



Figure 11-4. ACOS Builtin Function Examples 
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ADD BUILTIN FUNCTION 



ADDR builtin function examples are shown in figure 11-8. 



The ADD builtin function returns the sum of two values with 
a specified precision. ADD syntax is shown in figure 11-5. 



ADD(x,y,p[,q] ) 



Figure 11-5. ADD Builtin Function Syntax 

Arguments x and y specify the two values to be added; each 
can be an expression and must be scalar and computational. 
Arguments p and q specify the precision of the result; they 
must be decimal integers. Argument q can be signed. 

Arguments x and y are evaluated and converted to arith- 
metic values of the common base and scale. If the common 
scale is fixed point, q can be specified and must be within 
the range -255<=q and q<=255; if q is not specified, it is 
assumed to be zero. If the common scale is floating point, q 
cannot be specified. In either case, p must be greater than 
zero and must not exceed maximum precision (14 for 
decimal, 48 for binary). 

The result of the function is the sum of the converted 
arguments x and y. The base and scale of the result are 
those of the converted arguments. The precision of the 
result is (p) or (p,q). 



DCL 


1 A 


CONTROLLED. 




2 


B CMAfR<5>. 




2 


C CHAR(S). 




2 


DU2) CHARUOM 


DCL 


1 X 


BASED(P) LIKE At 


OCL 


Z(12> CHAR(IO) BASED<R>t 


ALLOCATE 


. At 


P= ADDR (AM 


RsADCRIX 


.0) t 



Figure 11-8. ADDR Builtin Function Examples 



AFTER BUILTIN FUNCTION 

The AFTER builtin function examines two strings. If the 
second string occurs as a substring of the first, AFTER 
returns the portion of the first string that appears to the 
right of the first instance of the substring. AFTER syntax is 
shown in figure 11-9. 



AFTER(string1,string2) 



Figure 11-9. AFTER Builtin Function Syntax 



ADD builtin function examples are shown in figure 11-6. 



X 


Y 


P 


Q 


ADDU.V.P.O) 


3 


4 


5 


3 


7.000 


13.45 


2E*000 


7 


»— 


1.545000E»00I 


0.142857 


17.356 


8 


3 


17.498 


0.142857 


17.356 


6 


-_- 


17 


1.42857E-001 


17.356 


6 


— 


1.74989E*001 


1.01B 


1.10001B 


8 


3 


2.8 



Figure 11-6. ADD Builtin Function Examples 



ADDR BUILTIN FUNCTION 

The ADDR builtin function returns a scalar pointer value 
that identifies the generation of storage associated with the 
argument. ADDR syntax is shown in figure 11-7. 



ADDR(x) 



Figure 11-7. ADDR Builtin Function Syntax 



Argument x must specify a variable with a generation that 
has connected storage. The variable can have any data type 
and storage type. 

If x is a controlled variable that has no generations of 
storage, the result of the function is a null pointer. If x is 
not a controlled variable, it must have a generation of 
storage. 



Each argument can be an expression; the values must be 
scalar and computational. If arguments stringl and string2 
are both bit strings, the result is a bit string; any other 
combination results in a character string. The arguments 
are first converted to the result type. 

The result of the function is the portion of stringl that 
occurs to the right of the first instance of substring. If 
string2 is a null string, the result of the function is stringl. 

The result of the function is a null string under any of the 
following circumstances: 

Stringl is a null string. 

String2 is not a substring of stringl. 

String2 appears once as a substring of stringl, and no 
characters or bits appear in string2 to the right of the 
substring. 

AFTER builtin function examples are shown in figure 11-10. 







AFTER 


STRING 1 


STRING2 


(STRING1*STRING2) 


♦ABCOEFG* 


♦CD* 


*EFG* 


♦ABCDEFCDG* 


♦CO* 


♦EFCDG* 


♦ABCDEFG* 


♦DC+ 


♦♦ 


** 


♦CO* 


** 


♦ABCDEFG* 


♦* 


♦ABCDEFG* 


♦ABCDEFG* 


♦FG* 


*♦ 


♦10110I+B 


♦ 01*8 


+101*8 


♦101101*6 


*01* 


♦ 101 + 



Figure 11-10. AFTER Builtin Function Examples 
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ALLOCATION BUILTIN FUNCTION 

The ALLOCATION builtin function determines whether or 
not storage has been allocated for the controlled variable 
specified by the argument, and returns the number of 
generations currently allocated. ALLOCATION syntax is 
shown in figure 11-11. 



Each argument can be an expression; the values must be 
scalar and computational. Arguments y and x are evaluated 
and converted to floating point. The mode, base, scale, and 
precision of the result are those of the converted arguments. 

ATAN(y) returns the arctangent of the value of an expres- 
sion y. The range of the result is 



(allocation) 

JALLOCN j 



(x) 



Figure 11-11. ALLOCATION Builtin Function Syntax 



-(7r/2)<ATAN(y) and ATAN(y)<(ir/2) 

ATAN(y,x) treats its two arguments as the Cartesian 
coordinates of a point in the plane. The function returns the 
angle between the positive x-axis and the line joining the 
origin to the point (x,y). It is an error if x and y are both 
zero. The range of the result is 



Argument x must specify a controlled variable that is 
unsubscripted and not a structure member. 

If no generations are currently allocated for the controlled 
variable, the result of the function is zero; otherwise, the 
result is the number of generations currently allocated for 
the variable. The returned value is a fixed binary integer. 



ASIN BUILTIN FUNCTION 

The ASIN builtin function returns the arcsine of a value; the 
result is expressed in radians. ASIN syntax is shown in 
figure 11-12. 




Figure 11-12. ASIN Builtin Function Syntax 



Argument y can be an expression; the value must be scalar 
and computational. Argument y is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

ASIN builtin function examples are shown in figure 11-13. 



-1.00000E*000 

-5.00000E-001 

0.00000E*000 

5.00000E-001 

1.00000E*000 



ASIN(Y) 

■1.57080E*000 

-5.23599E-001 

0.00000E«000 

5.23599E-001 

1.57080E«000 



- ir<ATAN(y,x) and ATAN(y,x)<=ir 
ATAN(y,x) satisfies the identity 

ATAN(SIN(z),COS(z))=z for all z within the range - jt <z 
and z<= t 

Conversion from rectangular coordinates (x,y) to polar 
coordinates (r.theta) can be accomplished by 

r=SQRT(x**2+y**2); 
theta=ATAN(y,x); 

ATAN builtin function examples are shown in figure 11-15. 



Y 


ATAN(Y) 




-1.0000QEO20 


-1.57080E*000 




-1.00000E*000 


-7.85398E-001 




O.OOOOOE»000 


0.0O0O0E+O00 




1.00000E*000 


7.85398E-001 




1.00000EO20 


l.S7080E*000 




Y 


X 


ATANtY.X) 


-1.00000E*000 


-1.00000E*000 


-2.35619E*000 


-1.00000E*000 


0.0OO00E*00O 


-1.57080E»000 


-1.00000E*000 


1.00000E*000 


-7.85398E-001 


O.OOOOOE*000 


1.00000E*000 


O.00o00E«000 


1.000006*000 


1.00000E*000 


7.85398E-001 


i.oooooe»ooo 


0.00000E*000 


l.S7080E»000 


1*00000E*000 


-1.00000E*000 


2.35619E*000 


0.0000OE*0o0 


-1.00000E*000 


3.U1S9E«000 



Figure 11-13. ASIN Builtin Function Examples 



Figure 11-15. ATAN Builtin Function Examples 



ATAN BUILTIN FUNCTION 

The ATAN builtin function returns the arctangent of a 
value; the result is expressed in radians. ATAN syntax is 
shown in figure 11-14. 



AT AND BUILTIN FUNCTION 

The ATAND builtin function returns the arctangent of a 
value; the result is expressed in degrees. ATAND syntax is 
shown in figure 11-16. 



ATAN(y [,x] ) 



Figure 11-14. ATAN Builtin Function Syntax 



ATAND(y[.x] ) 



Figure 11-16. ATAND Builtin Function Syntax 
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Each argument can be an expression; the values must be 
scalar and computational. Arguments y and x are evaluated 
and converted to floating point. The mode, base, scale, and 
precision of the result are those of the converted arguments. 

ATAND(y) returns the arctangent of the value of an 
expression y. The range of the result is 

-90<ATAND(y) and ATAND(y)<90 

ATAND(y,x) is identical to ATAN(y,x), except that ATAND 
returns an angle expressed in degrees. The range of the 
result is 



ATANH builtin function examples are shown in figure 11-19. 



-9.99999E-001 

■5.00Q00E-001 

O.0OOO0E*00O 

5.00000E-001 

9.99990E-001 



ATANH(X) 

•7.25433E*000 

•5.49306E-001 

O.OOO0OE*0O0 

5.49306E-001 

6.10303E*000 



Figure 11-19. ATANH Builtin Function Examples 



-180<ATAND(y,x) and ATAND(y,x)<=180 
The definition of ATAND is 

ATAND(y[,x])=(180/7r)*ATAN(y[,x]) 
ATAND builtin function examples are shown in figure 11-17. 



Y 


ATANO(Y) 




-1.00000EO20 


-9.00000E*001 




-1.00000E«000 


-4.50000E*001 




O.0OOO0E»0O0 


O.0O0OOE«OO0 




1.00000E*000 


4.5000CE»001 




1.00000E*320 


9.00000E*001 




V 


X 


ATAND<Y»XI 


-1.00000E*000 


-l.OOOOOE^OOO 


-1.35000E*002 


-1.00000E+000 


O.0OOO0E*OO0 


-9.00000E*001 


-1.00000E*000 


1.00000E»000 


•4.50000E*001 


O.OOO0OE»000 


1.00000E*000 


0.00000E»O00 


1.00000E*000 


1.00000E*000 


4.50000E*001 


1.00000E*000 


O.OOOOOE+000 


9.00000E*001 


1.00000E*000 


-1.00000E*000 


1.35000E*002 


O.00O0OE*000 


-1.0O0OOE»000 


1.80000E*002 



Figure 11-17. ATAND Builtin Function Examples 



ATANH BUILTIN FUNCTION 

The ATANH builtin function returns the inverse hyperbolic 
tangent of a value. ATANH syntax is shown in figure 11-18. 



ATANH(y) 



Figure 11-18. ATANH Builtin Function Syntax 



Argument y can be an expression; the value must be scalar 
and computational. Argument y must have an absolute value 
of less than 1. The argument is evaluated and converted to 
floating point. The mode, base, scale, and precision of the 
result are those of the converted argument. 



BEFORE BUILTIN FUNCTION 

The BEFORE builtin function examines two strings. If the 
second string occurs as a substring of the first, BEFORE 
returns the portion of the first string that appears to the 
left of the first instance of the substring. BEFORE syntax is 
shown in figure 11-20. 



BEFORE(string1,string2) 



Figure 11-20. BEFORE Builtin Function Syntax 



Each argument can be an expression; the values must be 
scalar and computational. If arguments stringl and string2 
are both bit strings, the result is a bit string; any other 
combination results in a character string. The arguments 
are first converted to the result type. 

The result of the function is the portion of stringl that 
occurs to the left of the first character or bit of the 
substring. 

The result of the function is a null string under any of the 
following circumstances: 

Stringl is a null string. 

String2 is a null string. 

String2 appears as a substring of stringl, beginning with 
the first character of stringl. 

BEFORE builtin function examples are shown in 
figure 11-21. 







BEFORE 


STRING 1 


STRING2 


JSTR1N61.STRING2) 


♦A8CDEFG+ 


♦CO* 


♦AB+ 


♦ABCDEFCOG* 


♦CO* 


♦AB+ 


♦ABCOEFG+ 


♦0C+ 


♦ABCDEFG* 


♦♦ 


♦C0+ 


♦♦ 


♦ABCOEFG* 


♦ ♦ 


♦♦ 


♦ABCDEF6* 


♦ AB+ 


♦♦ 


+101101*8 


♦01*B 


♦ 1+B 


+ 10U01+B 


♦01* 


♦ !♦ 



Figure 11-21. BEFORE Builtin Function Examples 
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BINARY BUILTIN FUNCTION 



BIT builtin function examples are shown in figure 11-25. 



The BINARY builtin function converts a value to binary base 
with a specified precision and returns the binary value. 
BINARY syntax is shown in figure 11-22. 



(binary) 

/BIN ( 



(x[,p[,q]] ) 



Figure 11-22. BINARY Builtin Function Syntax 



Argument x specifies the value to be converted to binary; 
the argument can be an expression and the value must be 
scalar and computational. Arguments p and q specify the 
precision of the result. Argument p must be an unsigned 
decimal integer within the range l<=p and p<=48. Argu- 
ment q must be a decimal integer within the range -255<=q 
and q<=255. If the converted argument is floating point, q 
cannot be specified. 

The result of the function is the binary value of the 
converted argument. The result precision is (p) or (p,q) if p 
and q are specified. If neither p nor q is specified, precision 
is determined by the standard conversion rules. 

BINARY builtin function examples are shown in 
figure 11-23. 



X 


P 


Q 


BIN<X.P,Q> 




DECIMAL 
EQUIVALENT 


0.1 
0.1 

1E-001 
♦ 1101+B 


4 
8 
9 

8 


4 
8 

3 


.0001B 
.00011001B 
1.10011001E- 
01101. 0008 


■4B 


0.06 
0.098 
1.00E-001 
13.0 



Figure 11-23. BINARY Builtin Function Examples 



BIT BUILTIN FUNCTION 

The BIT builtin function converts an argument to a bit string 
of a specified length and returns the bit string value. BIT 
syntax is shown in figure 11-24. 



DATATYPE OF X 


X 


LENGTH 


BIT (X. LENGTH) 


CHAR (4) 


♦1101* 


6 


+110100*6 


CHAR (♦) 


♦1101* 


2 


♦ 11*B 


FIXED BIN(«t0> 


110IB 


6 


♦110100*8 


FIXEO BINUOOI 


-0001101. 0118 


6 


*0001I0*B 


FIXED OEC<*.3> 


5.998 


.— 


*01Q1*B 


FIXEO DECC.3) 


-5.998 


— 


*0101*B 


FIXEO DEC(*.3) 


5.998 


9 


*010100000*t) 


CHAR<6» 


♦ 5.998* 




RAISES CONV 



Figure 11-25. BIT Builtin Function Examples 



BOOL BUILTIN FUNCTION 

The BOOL builtin function performs a specified boolean 
operation on two bit strings and returns a bit string value. 
BOOL syntax is shown in figure 11-26. 



BOOL(x,y,op) 



Figure 11-26. BOOL Builtin Function Syntax 



Arguments x, y, and op can be expressions; the values must 
be scalar and computational. Arguments x and y specify the 
strings. Argument op specifies the boolean operation to be 
performed. All arguments are converted to bit strings 
before the boolean operation is performed. 

If strings x and y are different in length, the shorter one is 
extended on the right with zero bits until it is the same 
length as the longer one. A boolean operation is performed 
on each pair of corresponding bits in strings x andy to 
create the result bit string. 

Argument op is converted to a bit string of length four. 
Each bit specifies a boolean operation as shown in 
table 11-3; bits are referenced from left to right as nl, n2, 
n3, and n4. For example, if both x and y are 'O'B and nl is 
'l'B, the result bit is 'l'B; if x is 'O'B and y is 'l'B and n2 is 
'l'B, the result bit is 'l'B. 



BIT(x[,length] ) 



TABLE 11-3. BOOL OPERATIONS 



Figure 11-24. BIT Builtin Function Syntax 



Arguments x and length can be expressions; the values must 
be scalar and computational. Argument x specifies the 
value to be converted. Argument length specifies the length 
of the result string. 

If the length argument is specified, length is converted to a 
fixed binary integer that must not be negative. The value of 
x is converted to a bit string of the specified length. 

If the length argument is not specified, the expression x is 
evaluated and converted to a bit string with a length 
determined according to standard conversion rules. 



Value of Bit x. 


Value of Bit y . 


Result Bit Determined By 





1 
1 



1 

1 


nl 
n2 
n3 
n4 



The boolean functions corresponding to the possible values 
of op are listed in table 11-4. BOOL builtin function 
examples are shown in figure 11-27. 
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TABLE 11-4. BOOLEAN FUNCTION/OP VALUE 
CORRESPONDENCE 



CEIL builtin function examples are shown in figure 11-29. 



OP 


Meaning 


PL/I Equivalent 


'0000'B 


false 


X&-1X 


'0001'B 


x ANDy 


x&y 


'0010'B 


— i(x implies y) 


x&-iy 


'0011'B 


x .', 


X 


'0100'B 


— i(y implies x) 


y&-ix 


'0101'B 


y 


y 


■0110'B 


exclusive or (x,y) 


(xly)6-i(x&y) 


'Olll'B 


xORy 


x!y 


'1000'B 


xNORy 


-"(xly) 


•iooi*b 


xsy 


(x&y) 1 (ix&-iy) 


•1010'B 


-•y 


-» 


'ion's 


y implies x 


xHy 


'1100'B 


-IX 


-IX 


'1101'B 


x implies y 


yi->x 


•1110'B 


x NAND y 


-i(x&y) 


•llllB 


true xhx 


Note: The PL/I equivalent column represents expres- 


sions that 


can be substituted for BOOL (x,y,op) only 


if strings 


x and y have the same length. 



♦iiioi*b 

tlllOOtB 
♦11100*8 



♦00111*B 

♦ 0+B 

♦ l*B 



OP 

♦0110»B 
♦1101»B 
♦1101*B 



BOOL(X.Y.OP) 

♦ HOIO^B 
♦00011+B 
♦10011*8 



Figure 11-27. BOOL Builtin Function Examples 



CEIL BUILTIN FUNCTION 

The CEIL builtin function returns the smallest integer that 
is greater than or equal to the value of an argument. CEIL 
syntax is shown in figure 11-28. 




Figure 11-28. CEIL Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to an arithmetic value. The result of the function is a real 
value with the base and scale of the converted argument. If 
the result is a floating point value, the result precision is 
that of the argument. If the result is a fixed point value, 
the result precision is 

(min(N,max(p-q+l,D), 0) 

where N is the maximum precision (p) for the given base (14 
for decimal, 48 for binary), and (p,q) is the precision of the 
converted argument. 



3.2 

-3.8 

-3.875 
-2.50E*000 
-1.26583E*002 



CEILU) 

4 

-3 

-3 
-2.00E*000 
-1.26000E*002 



Figure 11-29. CEIL Builtin Function Examples 



CHARACTER BUILTIN FUNCTION 

The CHARACTER builtin function converts an argument to 
a character string of a specified length and returns the 
character string value. CHARACTER syntax is shown in 
figure 11-30. 



(character) (xUength]) 

ICHAR I 



Figure 11-30. CHARACTER Builtin Function Syntax 



Arguments x and length can be expressions; the values must 
be scalar and computational. Argument x specifies the 
value to be converted. Argument length specifies the length 
of the result string. 

If the length argument is specified, length is converted to a 
fixed binary integer that must not be negative. The value of 
x is converted to a character string of the specified length. 

If the length argument is not specified, the expression x is 
evaluated and converted to a character string with a length 
determined according to standard conversion rules. 

CHARACTER builtin function examples are shown in 
figure 11-31. 



DATATYPE OF X 


X 


LENGTH 


CHAR IX .LENGTH* 


etTI5) 


'01011+8 


10 


+010)1 * 


FIXED 8IM*.0> 


1101B 


»•• 


♦ 13* 


FIXED BINUO.Ol 


-oouoi.ioioe 


— 


♦ -13.62* 


F1XEO 0ECO.3) 


5.998 


... 


♦ 5.998* 


FIXEO 0ECI4.31 


-5.998 


•-• 


♦ -5.998* 


PIOZ9V.99* 


t 5.98* 




♦ 5.98* 



Figure 11-31. CHARACTER Builtin Function Examples 



COLLATE BUILTIN FUNCTION 

The COLLATE builtin function returns a character string 
containing, in order, all characters in the collating sequence. 
COLLATE syntax is shown in figure 11-32. 



COLLATE [( )] 



Figure 11-32. COLLATE Builtin Function Syntax 
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The collating sequence is determined by the character set in 
use. Collating sequences are listed in appendix A. 

The collating sequence is used for the following purposes: 

• Comparing character string values in an expression 

• Determining the sequential order of records in a 
KEYED SEQUENTIAL file 

• Translating a character string when the TRANSLATE 
builtin function is referenced with only two arguments 

COPY BUILTIN FUNCTION 

The COPY builtin function concatenates a given string a 
specified number of times and returns the new string. 
COPY syntax is shown in figure 11-33. 



COPY(string,count) 



Figure 11-33. COPY Builtin Function Syntax 

Arguments string and count can be expressions; the values 
must be scalar and computational. Argument string speci- 
fies the source string; argument count specifies the number 
of copies of that string. If argument string is a bit string, 
the result of the function is a bit string; otherwise, the 
result is a character string. 

Argument string is first converted to a string of the result 
type. Argument count is converted to an integer that must 
not be negative. 

The result is calculated as follows: 

count = Result is a null string. 

count = 1 Result is the converted argument. 

count = n Result is a string formed by concatenating 
n copies of the converted argument. 

COPY builtin function examples are shown in figure 11-34. 



STRING COUNT COPY ( STRING. COUNT » 

♦ ABC* ** 

♦ABC* 1 *ABC* 

♦ABC* 3 *ABCABCABC* 

*101*b 3 ♦101101101*6 

27 3 * 27 27 27* 



Figure 11-34. COPY Builtin Function Examples 



COS BUILTIN FUNCTION 

The COS builtin function returns the trigonometric cosine of 
a value; the argument is assumed to be expressed in radians. 
COS syntax is shown in figure 11-35. 



COS(x) 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

COS builtin function examples are shown in figure 11-36. 



X 


C0S(X> 


-3.14159E*000 


-1.00000E*000 


-1.57080E*000 


5.90290E-012 


0.0OO0OE*0O0 


1.00000E»000 


1.57080E*000 


S.90290E-012 


3.14159E*000 


-1.00000E*000 


6.28319E*000 


1.00000E»000 



Figure 11-36. COS Builtin Function Examples 



COSD BUILTIN FUNCTION 

The COSD builtin function returns the trigonometric cosine 
of a value; the argument is assumed to be expressed in 
degrees. COSD syntax is shown in figure 11-37. 



COSD(x) 



Figure 11-37. COSD Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

COSD builtin function examples are shown in figure 11-38. 



X 


COSD(X) 


-1.80000E+002 


-1.00000E*000 


-9.00000E«001 


0.O00OOE*OOO 


O.OOOOOE*000 


1.00000E*000 


9.00000E*001 


O.OOOOOE»000 


1.80000E*002 


-1.00000E+000 


3.60000E»002 


1.000006*000 



Figure 11-38. COSD Builtin Function Examples 



COSH BUILTIN FUNCTION 

The COSH builtin function returns the hyperbolic cosine of a 
value. COSH syntax is shown in figure 11-39. 



COSH(x) 



Figure 11-35. COS Builtin Function Syntax 



Figure 11-39. COSH Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 
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COSH builtin function examples are shown in figure 11-40. 



X 


COSH(X> 


-5.00000E*000 


7.42099E«001 


-2.00000E+000 


3.76220E*000 


-1.00000E»000 


1.54308E*000 


O.000O0E*000 


1.00000E*000 


1.00000E»000 


1.54308E+000 


2.00000E*000 


3.76220E»000 


1.00000E»002 


1.34406E*043 



Figure 11-40. COSH Builtin Function Examples 



DATE BUILTIN FUNCTION 

The DATE builtin function returns a string of six characters 
representing the current date. DATE syntax is shown in 
figure 11-41. 



DATE[( )] 



If stringl and string2 are bit strings, the result of the 
function is a bit string; any other combination results in a 
character string. If stringl is a null string, the result is a 
null string. 

Arguments stringl and string2 are first converted to the 
result type. Argument op is converted to a bit string of 
length three. The argument can specify a number of 
operations as listed in table 11-5. 

TABLE 11-5. DEC AT OPERATIONS 



Figure 11-41. DATE Builtin Function Syntax 



op 


Result 


s2 Is a Substring 
of si 


s2 Is Null 


s2 Is Not 

Substring 

of si 


'000'B 


null 


nuU 


null 


'001*B 


AFTER(sl,s2) 


si 


null 


'010'B 


s2 


null 


null 


■Oll'B 


s21IAFTER(sl,s2) 


si 


null 


•100'B 


BEFORE(sl,s2) 


null 


si 


'101'B 


BEFORE(sl,s2) 
HAFTER(sl,s2) 


si 


si 


'110'B 


BEFORE(sl,s2)Ms2 


null 


si 


'lll'B 


Si 


si 


si 



The returned value is in the form 'yymmdd' where yy is the 
year, mm is the month, and dd is the day. For example: 

DCL TODAY PIC '99/99/99' INIT(DATE( )); 

DATE builtin function examples are shown in figure 11-42. 



POSSIBLE VALUES 
OF DATEO INCLUDE! 

♦771225* 
♦780315* 
♦840704* 



DECAT builtin function examples are shown in figure 11-44. 









OECAKSTRINGl* 


STRING1 


STRIN62 


OP 


STRING2.0PJ 


♦TENDENCY* 


♦DEN* 


♦101*B 


♦TENCV+ 


♦TENDENCY^ 


♦EN* 


♦101*8 


♦TDENCY* 


♦TEN0ENCY* 


*TEN* 


*100*B 


♦ ♦ 


♦TENDENCY^ 


♦TEN^ 


♦110*B 


♦TEN* 


♦TENDENCY* 


♦0EN+ 


♦010*B 


♦DEN* 


♦TENDENCY* 


♦CEN+ 


*0il*B 


** 


♦TENOENCY* 


♦♦ 


♦110*6 


** 



Figure 11-42. DATE Builtin Function Examples 



Figure 11-44. DECAT Builtin Function Examples 



DECAT BUILTIN FUNCTION 

The DECAT builtin function creates a string that is formed 
of portions of a given string and returns the new string. The 
function has the combined capabilities of the BEFORE and 
AFTER builtin functions. DECAT syntax is shown in 
figure 11-43. 



DECAT(string1 ,string2,op) 



Figure 11-43. DECAT Builtin function Syntax 



Arguments stringl, string2, and op can be expressions; the 
values must be scalar and computational. Argument stringl 
specifies the string from which the new string is to be 
formed. If string2 occurs as a substring of stringl, the 
portions of stringl used to form the result are determined by 
the position of string2 in stringl. Argument op specifies the 
type of operation to be performed. 



DECIMAL BUILTIN FUNCTION 

The DECIMAL builtin function converts a value to decimal 
base with a specified precision and returns the decimal 
value. DECIMAL syntax is shown in figure 11-45. 



(decimal! 

( DEC 1 



(x[,p[,q]]) 



Figure 11-45. DECIMAL Builtin Function Syntax 



Argument x specifies the value to be converted to decimal; 
the argument can be an expression and the value must be 
scalar and computational. Arguments p and q specify the 
precision of the result. Argument p must be an unsigned 
decimal integer within the range K=p and p<=14. Argu- 
ment q must be a decimal integer within the range -255<=q 
and q<=255. If the converted argument is floating point, q 
cannot be specified. 



11-12 



60388100 A 



The result of the function is the decimal value of the 
converted argument. The result precision is (p) or (p,q) if p 
and q are specified. If neither p nor q is specified, precision 
is determined by the standard conversion rules. 

DECIMAL builtin function "examples are shown in 
figure 11-46. 



Q 



OEC(X.P.O) 



.0001B 
.0001B 
.0001EOB 



5 
5 
5 



3 0.062 
* 0.0625 

6.2500E-002 



Figure 11-46. DECIMAL Builtin Function Examples 



DIMENSION BUILTIN FUNCTION 

The DIMENSION builtin function returns the span of the 
specified dimension of an array. DIMENSION syntax is 
shown in figure 11-47. 



(dimension) 



DJM 



(x,n) 



Figure 11-47. DIMENSION Builtin Function Syntax 

Argument x specifies the array, and n specifies the 
dimension to be examined. Argument n can be an expres- 
sion; the value must be scalar and computational. If n is not 
an integer, it is converted to a fixed binary integer before 
the operation is performed. 

The result of the function is a fixed binary integer that gives 
the span of the specified dimension of the array; that is, 
DM(x,n)=HBOUND(x,n)-LBOUND(x,n)+l. 

DIMENSION builtin function examples are shown in 
figure 11-48. 



DECLAMATIONS 




X 


N 


0IMENSI0NIX.N1 


00. 


MS) CHAR «au 




A 


1 


S 


DCL 


AI2S81 CHAR! 




A 


1 


? 


oct. 


A «-5«5? CHAR* 




A 


-1 


11 


OCL 


AI3.4.0JS)! 




A 


3 


6 


DCL 
OCL 


AI8.3I12H 
BI3U21 DEF(S13. 


»»>! 


B 


1 


10 


DCL 


AI3.4.5H 




A42.o»o> 


2 


S 


Pt 


OCL B<5.388> 
CALL P<8>» 
J>R0C<XM 

OCL *<•.•)! 


X 


2 


6 



Figure 11-48. DIMENSION Builtin Function Examples 



DIVIDE BUILTIN FUNCTION 

The DIVIDE builtin function divides one argument by another 
and returns the quotient with a specified precision. DIVIDE 
syntax is shown in figure 11-49. 



DIVIDE(x,y,p[,ql> 



Figure 11-49. DIVIDE Builtin Function Syntax 

Argument x specifies the dividend, and y specifies the 
divisor; each can be an expression and must be scalar and 
computational. Arguments p and q specify the precision of 
the result; they must be decimal integers. Argument q can 
be signed. 

Arguments x and y are evaluated and converted to arith- 
metic values of the common base and scale. If the common 
scale is fixed, q can be specified and must be within the 
range -255<=q and q<=255; if q is not specified, it is 
assumed to be zero. If the common scale is floating point, q 
cannot be specified. In either case, p must be greater than 
zero and must not exceed maximum precision (14 for 
decimal, 48 for binary). 

The result of the function is the quotient of the converted 
arguments x and y, which represent the dividend and divisor, 
respectively. The base and scale of the result are those of 
the converted arguments. The precision of the result is (p) 
or (p,q). If y is zero, the ZERODIVIDE condition is raised. 

DIVIDE builtin function examples are shown in figure 11-50. 



X 


Y 


P 





OIVICE<X,Y.P.O> 


3 


4 


5 


3 


0.7SO 


13.45 


2E.000 


7 


... 


6. 7250006*000 


0.142857 


17.356 


8 


3 


0.008 


0.142857 


17.356 


6 


— 





1.428S7E-001 


17.356 


6 


■mi- 


8.23099E-003 


.1018 


I. IB 


12 


IO 


00.01101010106 



Figure 11-50. DIVIDE Builtin Function Examples 



EMPTY BUILTIN FUNCTION 

The EMPTY builtin function returns an empty area value. If 
this value is assigned to an area variable, all based 
generations contained in the area are freed. EMPTY syntax 
is shown in figure 11-51. EMPTY builtin function examples 
are shown in figure 11-52. 



EMPTY[( )] 



Figure 11-51. EMPTY Builtin Function Syntax 



OECLARE C AREA (400) CONTROLLEOI 
DECLARE A AREA<2O0M 
ALLOCATE C« 



A*C=EMPTY<> ; 

/* FREES ALL BASE0 GENERATIONS ALLOCATED •/ 
/» IN THE MOST RECENTLY ALLOCATED */ 
/• GENERATIONS OF AREA VARIABLES A AND C »/ 



Figure 11-52. EMPTY Builtin Function Examples 
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ERF BUILTIN FUNCTION 

The ERF builtin function returns the error function of a 
value. ERF syntax is shown in figure 11-53. 



ERF(x) 



Figure 11-53. ERF Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

The error function is defined by 



X 


ERFC(X) 


-1.00000E*320 


2.00000E«000 


-2.00000E+000 


1.99532E«000 


-1.00000E»000 


1.84270E+000 


0.OO0O0E+000 


1.00000E+000 


1.00000E+000 


1.57299E-001 


2.00000E*000 


4.67773E-003 


2.50000E+001 


8.300I7E-274 



Figure 11-56. ERFC Builtin Function Examples 

EXP BUILTIN FUNCTION 

The EXP builtin function returns the value of e raised to a 
given power, where e is the base of the natural logarithms. 
EXP syntax is shown in figure 11-57. 



dt 



ERF(x)= -1/ 
ERF builtin function examples are shown in figure 11-54. 



X 


ERF(X) 


-1.00000E*320 


-I.OOOOOE+000 


-2.00000E*000 


-9.95322E-001 


-1.00000E*000 


-8.42701E-001 


O.OOOOOE+000 


O.0O000E+000 


1.0OOOOE+00O 


8.42701E-001 


2.00000E*000 


9.95322E-001 


1.00000E*300 


1.00000E*000 



Figure 11-54. ERF Builtin Function Examples 



ERFC BUILTIN FUNCTION 

The ERFC builtin function returns the complementary error 
function of a value. ERFC syntax is shown in figure 11-55. 



EXP(x) 



Figure 11-57. EXP Builtin Function Syntax 

Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

EXP builtin function examples are shown in figure 11-58. 



X 


EXP(X) 


-6.00000E»002 


2.65040E-261 


-1.00000E*001 


4.53999E-005 


-2.00000E*000 


1.35335E-001 


-1.00000E*000 


3.67S79E-001 


O.OOOOOE*000 


1.00000E+000 


1.00000E+000 


2.71828E+000 


2.00000E*000 


7.38906E*000 


7.50000E*001 


3.73324E*032 



Figure 11-58. EXP Builtin Function Examples 




Figure 11-55. ERFC Builtin Function Syntax 



FIXED BUILTIN FUNCTION 

The FIXED builtin function converts a value to fixed point 
scale with a specified precision and returns the converted 
value. FIXED syntax is shown in figure 11-59. 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

The complementary error function is defined by 



ERFC(x) 






e * dt 



= 1 - ERF(x) 
ERFC builtin function examples are shown in figure 11-56. 



FIXED(x,p[,q]) 



Figure 11-59. FIXED Builtin Function Syntax 

Argument x specifies the value to be converted to 
fixed-point scale; the argument can be an expression and 
the value must be scalar and computational. Arguments p 
and q specify the precision of the result. Argument p 
must be an unsigned decimal integer greater than zero and 
must not exceed maximum precision (14 for decimal, 48 
for binary). Argument q must be a decimal integer within 
the range -255<=q and q<=255. 
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The result of the function is the fixed point value of the 
converted argument. The result precision is (p) or (p,q). If q 
is not specified, it is assumed to be zero. 

FIXED builtin function examples are shown in figure 11-60. 



X 


P 


Q 


FIXEO<X»P.Q> 


2.34 


5 


3 


2.340 


2.34 


5 


-— 


2 


-1.234E-003 


7 


S 


-0.00123 


-1.234E-003 


5 


_— 


-0 


6.3E-002 


5 


___ 





♦1101*8 


5 


2 


13.0 



Figure 11-60. FIXED Builtin Function Examples 



FLOAT BUILTIN FUNCTION 

The FLOAT builtin function converts a value to floating 
point scale with a specified precision and returns the 
converted value. FLOAT syntax is shown in figure 11-61. 



FLOAT(x,p) 



Figure 11-61. FLOAT Builtin Function Syntax 



Argument x specifies the value to be converted to floating 
point scale; the argument can be an expression and the value 
must be scalar and computational. Argument p specifies the 
precision of the result. Argument p must be an unsigned 
decimal integer greater than zero and must not exceed 
maximum precision (14 for decimal, 48 for binary). 

The result of the function is the floating point value of the 
converted argument. 

FLOAT builtin function examples are shown in figure 11-62. 



2.34 


5 


12345.6 


5 


-1.234E-003 


7 


-1.23456E+005 


3 


6.3E-002 


5 


♦1101*6 


5 



FLOATU.P) 

2.3400E*000 

1.2346E*004 
-1.234000E-003 
-1.23E*005 

6.3E-002 

1.3E*001 



Figure 11-62. FLOAT Builtin Function Examples 



FLOOR BUILTIN FUNCTION 

The FLOOR builtin function returns the largest integer that 
does not exceed the value of the argument. FLOOR syntax 
is shown in figure 11-63. 



FLOOR(x) 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to an arithmetic value. The result of the function is a real 
value with the base and scale of the converted argument. If 
the result is a floating point value, the result precision is 
that of the argument. If the result is a fixed point value, 
the result precision is 

(min(N,max(p-q+l,l)), 0) 

where N is the maximum precision (p) for the given base (14 
for decimal, 48 for binary) and (p,q) is the precision of the 
converted argument. 

FLOOR builtin function examples are shown in figure 11-64. 



3.2 

-3.8 

-3.875 
-2.50E»000 
•1.26583E*002 



FLOOR (X) 

3 

-4 

-4 
-3.00E*000 
-1.27000E*002 



Figure 11-64. FLOOR Builtin Function Examples 



HBOUND BUILTIN FUNCTION 

The HBOUND builtin function returns the upper bound of the 
specified dimension of an array. HBOUND syntax is shown 
in figure 11-65. 



HBOUND(x,n) 



Figure 11-65. HBOUND Builtin Function Syntax 

Argument x specifies the array, and n specifies the 
dimension to be examined. Argument n can be an expres- 
sion; the value must be scalar and computational. If n is not 
an integer, it is converted to a fixed binary integer before 
the operation is performed. 

The result of the function is a fixed binary integer that gives 
the upper bound of the specified dimension of the array. 

HBOUND builtin function examples are shown in 
figure 11-66. 



DECLARATIONS 




X 


N 


HBOUKDIX.Nt 


DCL AI5) CHAR can 




A 




5 


OCL AI2J8I CHAR! 




A 




8 


DCL A<-Slb) ChARt 




A 




S 


DCL A(3,4.0>5H 




A 




5 


DCL A(8,3U2>I 

OCL 8 131 12) OEFIBOi 


•Itl 


8 




12 


OCL A(3,«tSM 




AI2t»t*> 


2 


S 


OCL 8(5.3I8» 
CALL P(B)« 
P! PROCIXM 

DCL X<».« 


II 


X 


2 


8 



Figure 11-63. FLOOR Builtin Function Syntax 



Figure 11-66. HBOUND Builtin Function Examples 
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HIGH BUILTIN FUNCTION 

The HIGH builtin function forms a string with a specified 
length of the highest character in the collating sequence and 
returns that string. HIGH syntax is shown in figure 11-67. 



HIGH(length) 



Figure 11-67. HIGH Builtin Function Syntax 

Argument length can be an expression; the value must be 
scalar and computational. Argument length specifies the 
length of the string to be formed. The argument is 
converted to an integer that must not be negative. 

If a CDC collating sequence is in use, the result of the 
function is a string consisting of copies of the character 9. 
If an ASCII collating sequence is in use, the result is a string 
consisting of copies of the underline character. 

HIGH builtin function examples are shown in figure 11-68. 



LENGTH 






HIOH(LENGTh) 




1 
4 






tt 

t9t 

t9999t 


note: 


THIS 


RESULT 


OEPENOS UPON 




INSTALLATION 


PARAMETERS 



Figure 11-68. HIGH Builtin Function Examples 



STRING1 



INDEX 
STRING2 (STRING1.STRING2) 



tABCOEFGt tCOt 

tABCOEFGCOMIJt tCDt 

tABCOEFGt tOCt 

tABCOEFGt tt 

tt tCDt 



Figure 11-70. INDEX Builtin Function Examples 



LBOUND BUILTIN FUNCTION 

The LBOUND builtin function returns the lower bound of the 
specified dimension of an array. LBOUND syntax is shown 
in figure 11-71. 



LBOUND(x,n) 



Figure 11-71. LBOUND Builtin Function Syntax 

Argument x specifies the array, and n specifies the 
dimension to be examined. Argument n can be an expres- 
sion; the value must be scalar and computational. If n is not 
an integer, it is converted to a fixed binary integer before 
the operation is performed. 

The result of the .function is a fixed binary integer that gives 
the lower bound of the specified dimension of the array. 

LBOUND builtin function examples are shown in 
figure 11-72. 



INDEX BUILTIN FUNCTION 

The INDEX builtin function returns a value that indicates 
the position of a substring within a string. Positions are 
numbered from the left, starting with 1 for the leftmost 
character. INDEX syntax is shown in figure 11-69. 



INDEX(string1,string2) 



Figure 11-69. INDEX Builtin Function Syntax 



Arguments stringl and string2 can be expressions; the values 
must be scalar and computational. Argument stringl 
specifies the string; string2 specifies the substring. 

The result of the function is a fixed binary integer indicating 
the position in stringl of the first bit or character of the 
substring. If the substring occurs more than once, the result 
indicates the position of the leftmost substring. 

The result of the function is zero under any of the following 
circumstances: 

Stringl is a null string. 
String2 is a null string. 
String2 is not a substring of stringl. 

INDEX builtin function examples are shown in figure 11-70. 



DECLAMATIONS 




N 


LBOUhO(X.N) 


OCL ACSI CHAR(8>I 






1 


DCL A(2I8> CHAftt 






2 


OCL A (-5151 CHARt 






-5 


OCL A(3.*.0«S»» 









OCL A(8,3I12M 

OCL BI3I12) 0EMB(3,»»M 


B 




3 


DCL AO.*.2«SM 


A(Zt*»*> 




2 


DCL BCS.SiS) 
CALL PIHtl 
Pi PROCIXM 

OCL X <•••>! 


X 


2 


3 



Figure 11-72. LBOUND Builtin Function Examples 



LENGTH BUILTIN FUNCTION 

The LENGTH builtin function determines the number of 
characters or bits in an argument and returns the count. 
LENGTH syntax is shown in figure 11-73. 



LENGTH (string) 



Figure 11-73. LENGTH Builtin Function Syntax 
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Argument string can be an expression; the value must be 
scalar and computational. If the argument is not a string, it 
is converted to a character string. The result of the 
function is a fixed binary integer that gives the current 
length of the. character or bit string. 

LENGTH builtin function examples are shown in 
figure 11-74. 



DATATYPE OF X 


VALUE OF X 


LENGTH(X) 


CHARC6) 


♦ABCDE* 


5 


CHAR< I) 


♦ABODE ♦ 




CHAR (7) VARYING 


♦ABCOE ♦ 




CHA»<7) VARYING 


♦ABO 




BIT<7> 


♦10110ll»B 




BIT<7> VARYING 


♦1011011* 




BIT (7) VARYING 


♦101* 


3 


FIXED CECC5.2) 


1.25 


6 


FIXED BIM5»2) 


1.01B 


1 



Argument x can be an expression; the value must be scalar 
and computational. Argument x must specify a value 
greater than zero. The argument is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

LOG builtin function examples are shown in figure 11-78. 



X 


LOG(X) 


1.00000E-290 


-6.67750E*002 


1.00000E-001 


-2.30259E*000 


1.00000E*000 


0.00000E*000 


2.71828E*000 


1.00000E*000 


1.00000E*001 


2.302S9E*000 


2.718E*000 


1.000E*000 



Figure 11-78. LOG Builtin Function Examples 



Figure 11-74. LENGTH Builtin Function Examples 



LINENO BUILTIN FUNCTION 

The LINENO builtin function returns the current line number 
of the specified stream print file. LINENO syntax is shown 
in figure 11-75. 



L I N E NO (f i I e-ref ere nee) 



LOGIO BUILTIN FUNCTION 

The LOGIO builtin function returns the common logarithm 
(base 10) of a value. LOGIO syntax is shown in figure 11-79. 



LOG10(x) 



Figure 11-79. LOGIO Builtin Function Syntax 



Figure 11-75. LINENO Builtin Function Syntax 

Argument file-reference specifies the stream print file; the 
argument must be a scalar file value that identifies an open 
file with the attributes STREAM OUTPUT PRINT. 

The result of the function is a fixed binary integer that gives 
the current line number for the file. The first line on a page 
of a print file is line number 1. 

LINENO builtin function examples are shown in 
figure 11-76. 



PL/I STATEMENTS 



VALUE 
PRINTEO 



DO I 



PUT PAGE LIST(LINENO<SYSPRINT))» 1 
PUT SKIP(5) LIST(LlNENO(SYSPRINT>M 6 
PUT EOIT (LINENO <SYSPRINT>) <LINE»A>» 1 

END! 



Argument x can be an expression; the value must be scalar 
and computational. Argument x must specify a value 
greater than zero. The argument is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

LOGIO builtin function examples are shown in figure 11-80. 



X 


LOG10(X> 


1.00000E-290 


-2.90000E*002 


1.00000E-001 


-1.00000E*000 


5.00000E-001 


-3.01030E-001 


1.00000E*000 


0.00000E*000 


2.000006*000 


3.01030E-001 


2.71828E*000 


4.34294E-001 


1.00000E*001 


1.00000E+000 


1.04858E*006 


6.02060E*000 


10.0 


1.00E*000 



Figure 11-76. LINENO Builtin Function Examples 



Figure 11-80. LOG10 Builtin Function Examples 



LOG BUILTIN FUNCTION 

The LOG builtin function returns the natural logarithm 
(base e) of a value. LOG syntax is shown in figure 11-77. 



LOG2 BUILTIN FUNCTION 

The LOG2 builtin function returns the base 2 logarithm of a 
value. LOG2 syntax is shown in figure 11-81. 



LOG(x) 



Figure 11-77. LOG Builtin Function Syntax 



LOG2(x) 



Figure 11-81. LOG2 Builtin Function Syntax 



60388100 A 



11-17 



Argument x can be an expression; the value must be scalar 
and computational. Argument x must specify a value 
greater than zero. The argument is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

LOG2 builtin function examples are shown in figure 11-82. 



X 


LOG2CX) 


1.00000E-290 


-9.63359E*002 


1.00000E-001 


-3.32193E*000 


5.00000E-001 


-1.00000E*000 


1.000006*000 


0.00000E«000 


2.00000E*000 


1.00000E+000 


2.71b28E*000 


1.<»4270E»000 


1.00000E+001 


3.32193E*000 


1.04858E*006 


2.00000E*001 



Figure 11-82. LOG2 Builtin Function Examples 



LOW BUILTIN FUNCTION 

The LOW builtin function forms a string with a specified 
length of the lowest character in the collating sequence and 
returns that string. LOW syntax is shown in figure 11-83. 



Arguments can be expressions; the values must be scalar and 
computational. Arguments are evaluated and converted to 
arithmetic values of the common base and scale. The result 
of the function is the largest value among the arguments. If 
the common scale is floating point, the result precision is 

(max(p.)) 

If the common scale is fixed point, the precision is 
(min(N,max(p.-q.)+max(q.)), max(q.)) 

where N is the maximum possible precision (p) for the base 
of the result (14 for decimal, 48 for binary), and (pj,q.) are 
the precisions of the converted arguments. 

MAX builtin function examples are shown in figure 11-86. 



REFERENCE 



VALUE 
RETURNED 



DECIMAL 
EQUIVALENT 



MAX (1> 2» -3) 2 

MAXU.0000* 2* -3E0) 2.0000E + 000 
MAX1-S0. 116) OOOOOIIB 

MAXU6. 35* 28) 35 

MAXt-16. -35* -28) -16 



Figure 11-86. MAX Builtin Function Examples 



LOW(length) 



Figure 11-83. LOW Builtin Function Syntax 



MIN BUILTIN FUNCTION 

The MIN builtin function determines which argument has the 
smallest value, and returns that value. MIN syntax is shown 
in figure 11-87. 



Argument length can be an expression; the value must be 
scalar and computational. Argument length specifies the 
length of the string to be formed. The argument is 
converted to an integer that must not be negative. 

The result of the function is a string consisting of the 
number of blank characters specified by the length 
argument. The blank is the lowest character in all collating 
sequences. 

LOW builtin function examples are shown in figure 11-84. 



LENGTH 


1 

4 



LOW(LENGTh) 



♦t 

* 



Figure 11-84. LOW Builtin Function Examples 



MIN(X; 



Figure 11-87. MIN Builtin Function Syntax 

Arguments can be expressions; the values must be scalar and 
computational. Arguments are evaluated and converted to 
arithmetic values of the common base and scale. The result 
of the function is the smallest value among the arguments. 
If the common scale is floating point, the result precision is 

(max(p.)) 

If the common scale is fixed point, the result is 
(min(N,max(p.-q.)+max(q.)), max(q.)) 

where N is the maximum possible precision (p) for the base 
of the result (14 for decimal, 48 for binary), and (p.,q.) are 
the precisions of the converted arguments. 

MIN builtin function examples are shown in figure 11-88. 



MAX BUILTIN FUNCTION 

The MAX builtin function determines which argument has 
the largest value, and returns that value. MAX syntax is 
shown in figure 11-85. 



MAX(xj , , , ) 



REFERENCE 

MIN<1. 2* -3) 
MINU.OOOO* 2* 
MIN(-50* 11B) 
MINU6* 35* 28) 
MIN(-16* -35. - 


-3E0) 
28) 


VALUE 
RETURNED 

-3 

•3.0000E* 
OOOOOIIB 
16 
-35 


000 


DECIMAL 
EQUIVALENT 

-50 



Figure 11-85. MAX Builtin Function Syntax 



Figure 11-88. MIN Builtin Function Examples 
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MOD BUILTIN FUNCTION 

The MOD builtin function returns the value of an argument x 
(modulo y). MOD syntax is shown in figure 11-89. 



MOD(x,y) 



Figure 11-89. MOD Builtin Function Syntax 

Arguments x and y can be expressions; the values must be 
scalar and computational. Arguments x and y are evaluated 
and converted to arithmetic values of the common base and 
scale. If the common scale is floating point, the result 
precision is 

(maxfopPj)) 

If the common scale is fixed point, the result is 

(min(N,p2-q2+max(ql,q2)), max(ql,q2)) 

where N is the maximum possible precision (p) for the base 
of the result (14 for decimal, 48 for binary), and (pl,ql) and 
(p2,q2) are precisions of x and y, respectively. 

If y is equal to 0, the result is the value of x. If y is not 0, 
the result is 

x-(y*FLOOR(x/y» 

The value of this expression always has the same sign as y. 

MOD builtin function examples are shown in figure 11-90. 



X 


Y 


MOC(X.Y> 


12 


5 


2 


-12 


5 


3 


12 


-5 


-3 


-12 


-5 


-2 


5 





5 


-5 





-5 


12 


3.5 


1.5 


12.5 


3 


0.5 



Figure 11-90. MOD Builtin Function Examples 



MULTIPLY BUILTIN FUNCTION 

The MULTIPLY builtin function returns the product of two 
values with a specified precision. MULTIPLY syntax is 
shown in figure 11-91. 



Arguments x and y are evaluated and converted to arith- 
metic values of the common base and scale. If the common 
scale is fixed point, q can be specified and must be within 
the range -255<=q and q<=255; if q is not specified, it is 
assumed to be zero. If the common scale is floating point, q 
cannot be specified. In either case, p must be greater than 
zero and must not exceed maximum precision (14 for 
decimal, 48 for binary). 

The result of the function is the product of the converted 
arguments x and y. The base and scale of the result are 
those of the converted arguments. The precision of the 
result is (p) or (p,q). 

MULTIPLY builtin function examples are shown in 
figure 11-92. 



X 


Y 


P 





MULTIPLY CXtY.P.O) 


3 


4 


5 


3 


12.000 


13.4S 


2E»000 


7 


••• 


2.690000E*001 


0.142857 


17.356 


8 


3 


2.479 


0.142857 


17.356 


6 


-•» 


2 


1.42857E-001 


17.356 


6 


••• 


2.47943E'000 


0.6 


1.5 


12 


10 


0.3125 



Figure 11-92. MULTIPLY Builtin Function Examples 



NULL BUILTIN FUNCTION 

The NULL builtin function returns a null pointer value. A 
null pointer value does not identify any generation. NULL 
syntax is shown in figure 11-93. 



NULL[( )] 



Figure 11-93. NULL Builtin Function Syntax 



A null pointer value can be used to designate the end of a 
list during list processing operations as described under 
Based Storage in section 3, Data Elements. 

NULL builtin function examples are shown in figure 11-94. 



0CL P POINTER INITIAL (NULLUM 
0CL Q POINTER. R OFFSETCMYAREAM 

Q.R=NULL<>« 



Figure 11-94. NULL Builtin Function Examples 



MULTIPLY(x,y,p[,q]) 



Figure 11-91. MULTIPLY Builtin Function Syntax 

Arguments x and y specify the two values to be multiplied; 
each can be an expression and must be scalar and 
computational. Arguments p and q specify the precision of 
the result; they must be decimal integers. Argument q can 
be signed. 



OFFSET BUILTIN FUNCTION 

The OFFSET builtin function converts a pointer value to an 
offset value and returns the offset value. OFFSET syntax is 
shown in figure 11-95. 



OFFSET(pointer,area) 



Figure 11-95. OFFSET Builtin Function Syntax 
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Argument pointer specifies a scalar pointer value; argument 
area specifies a scalar area value. It is an error if pointer 
does not identify a generation in area. 

The result of the function is an offset value that identifies 
the generation denoted by argument pointer. 



ONCHAR BUILTIN FUNCTION 

An ONCHAR value is established when the CONVERSION 
condition is raised; the value is the single character that 
caused the condition to be raised. This character is 
contained in the value of the ONSOURCE builtin function. 
The ONCHAR builtin function returns that character. 
ONCHAR syntax is shown in figure 11-96. 



ONCHARU )] 



ONFILE BUILTIN FUNCTION 

An ONFILE value is established when any I/O condition is 
raised; an ONFILE value is also established when the 
CONVERSION condition is raised during an I/O operation. 
The value is a character string that contains the name of the 
file constant for which the condition was raised. The 
ONFILE builtin function returns that character string. 
ONFILE syntax is shown in figure 11-98. 



ONFILE[( )] 



Figure 11-98. ONFILE Builtin Function Syntax 



If the function is invoked outside an applicable on-unit or a 
dynamic successor of an applicable on-unit, a null string is 
returned. 



Figure 11-96. ONCHAR Builtin Function Syntax 



If the function is invoked outside a CONVERSION on-unit or 
a dynamic successor of a CONVERSION on-unit, a blank 
character is returned. 



ONCHAR PSEUDOV ARI ABLE 

ONCHAR operates as a pseudovariable when it is used as the 
target of an assignment operation. The ONCHAR pseudo- 
variable replaces the character in ONSOURCE that caused 
the CONVERSION condition to be raised. 



The syntax is the same as shown for the ONCHAR builtin 
function. The expression to be assigned is evaluated and 
converted to a character string of length 1. That character 
is then assigned to ONSOURCE, replacing the single 
character that caused the CONVERSION condition to be 
raised. ONCHAR modifies the original string that was being 
converted when CONVERSION was raised. 



ONKEY BUILTIN FUNCTION 

An ONKEY value is established when any I/O condition is 
raised during a keyed I/O operation; the value is a character 
string containing the key for the record that caused the 
condition to be raised. The ONKEY builtin function returns 
that character string. ONKEY syntax is shown in 
figure 11-99. 



ONKEYU )] 



Figure 11-99. ONKEY Builtin Function Syntax 

ONKEY is established for I/O conditions KEY, RECORD, 
and TRANSMIT. 

If the function is invoked outside an applicable on-unit or a 
dynamic successor of an applicable on-unit, a null string is 
returned. 



The ONCHAR pseudovariable can only be used in a 
CONVERSION on-unit or a dynamic successor of a 
CONVERSION on-unit. It is an error if it is used elsewhere. 



ONCODE BUILTIN FUNCTION 

An ONCODE value is established when any condition is 
raised; the value is a fixed binary integer that identifies the 
condition and the circumstances under which it was raised. 
The ONCODE builtin function returns that binary integer. 
ONCODE syntax is shown in figure 11-97. 



ONCODE[( )] 



ONLOC BUILTIN FUNCTION 

An ONLOC value is established when any condition is raised; 
the value is a character string that contains the name of the 
entry point used to enter the procedure in which the 
condition was raised. The ONLOC builtin function returns 
that character string. ONLOC syntax is shown in 
figure 11-100. 



ONLOC[( )] 



Figure 11-97. ONCODE Builtin Function Syntax 



Figure 11-100. ONLOC Builtin Function Syntax 

If the function is invoked outside an on-unit or the dynamic 
successor of an on-unit, a null string is returned. 



If the function is invoked outside an on-unit or the dynamic 
successor of an on-unit, a zero is returned. 

ONCODE values are listed under run-time diagnostics in 
appendix B. 



ONSOURCE BUILTIN FUNCTION 

An ONSOURCE value is established when the CONVERSION 
condition is raised; the value is a character string containing 
the source string that caused the condition to be raised. The 
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ONSOURCE builtin function returns that character string. 
ONSOURCE syntax is shown in figure 11-101. 



ONSOURCEK )] 



Figure 11-101. ONSOURCE Builtin Function Syntax 

If the function is invoked outside a CONVERSION on-unit or 
a dynamic successor of a CONVERSION on-unit, a null 
string is returned. 



POINTER BUILTIN FUNCTION 

The POINTER builtin function converts an offset value to a 
pointer value and returns the pointer value. POINTER 
syntax is shown in figure 11-103. 



( POINTER ) 
\PTR j 



(offset .area) 



Figure 11-103. POINTER Builtin Function Syntax 



ONSOURCE PSEUDOVARIABLE 

ONSOURCE operates as a pseudovariable when it is used as 
the target of an assignment operation. The ONSOURCE 
pseudovariable replaces the value of the current generation 
of ONSOURCE. 

The syntax is the same as shown for the ONSOURCE builtin 
function. The expression to be assigned is evaluated and 
converted to a character string of the same length as that of 
the current generation of ONSOURCE. That string is then 
assigned to ONSOURCE, replacing the value of the current 
generation. ONSOURCE modifies the original string that 
verted when CONVKKSION was raised. The 
new ONSOURCE value is used as the source for a subsequent 
conversion attempt if the CONVERSION on-unit terminates 
normally. 

The ONSOURCE pseudovariable can only be used in a 
CONVERSION on-unit or a dynamic successor of a 
CONVERSION on-unit. It is an error if it is used elsewhere. 



PAGENO BUILTIN FUNCTION 

The PAGENO builtin function returns the current page 
number of the specified print file. PAGENO syntax is shown 
in figure 11-102. 



PAGENO(file-reference) 



Figure 11-102. PAGENO Builtin Function Syntax 

Argument file-reference specifies the stream print file; the 
argument must be a scalar file value that identifies an open 
file with attributes STREAM OUTPUT PRINT. 

The result of the function is a fixed binary integer that gives 
the current page number for the file. 



Argument offset specifies a scalar offset value; argument 
area specifies an area value. It is an error if offset does not 
identify a generation in area. 

The result of the function is a pointer value that identifies 
the generation denoted by argument area. 



PRECISION BUILTIN FUNCTION 

The PRECISION builtin function converts the value of an 
argument to a given precision and returns that value. 
PRECISION syntax is shown in figure 11-104. 



(precision) 

) PR EC i 



(x,p[,q]| 



Figure 11-104. PRECISION Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x specifies the expression to 
be converted. Arguments p and q specify the precision of 
the result. Argument p must be an unsigned decimal integer 
greater than zero and must not exceed maximum precision 
(14 for decimal, 48 for binary). Argument q must be a 
decimal integer within the range -255<=q and q<=255. If x 
is floating point, q cannot be specified. 

Argument x is evaluated and converted to an arithmetic 
value. The result of the function is a real value with the 
base and scale of the converted argument. The precision of 
the result is (p) or (p,q). 

PRECISION builtin function examples are shown in 
figure 11-105. 



PAGENO PSEUDOVARIABLE 

PAGENO operates as a pseudovariable when it is used as the 
target of an assignment operation. The PAGENO pseudo- 
variable replaces the current page number for a print file. 

The syntax is the same as shown for the PAGENO builtin 
function. The expression to be assigned is evaluated and 
converted to a fixed binary integer, which must be positive. 
That integer value replaces the current page number for the 
file. The file identified by the argument must be an open 
file with attributes STREAM OUTPUT PRINT. 



12. 34 


5 


3 


12.34 


6 


2 


12.34 


6 


1 


12.34 


4 


-- 


1.234E*002 


3 


-- 



PRECISIONS. P. Q) 

12.340 
12.34 
12.3 
12 
1.23E»002 



Figure 11-105. PRECISION Builtin Function Examples 
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REVERSE BUILTIN FUNCTION 

The REVERSE builtin function reverses an argument string 
such that the first character or bit becomes the last, the 
second becomes the next to last, and so forth. The function 
returns that reversed string. REVERSE syntax is shown in 
figure 11-106. 



REVERSE(string) 



Figure 11-106. REVERSE Builtin Function Syntax 



If n is positive, rounding occurs at the specified digit to the 
right of the decimal or binary point. If n is negative, 
rounding occurs at the specified digit to the left of the 
decimal or binary point. The result value is 

SIGN(x)*FLOOR(ABS(x)*(b**k)+.5)/(b**k) 

where k=n if x is a fixed point value, or k=n-e if x is a 
floating point value with the exponent e; and where b=2 if x 
is binary, or b=10 if x is decimal. 

ROUND builtin function examples are shown in 
figure 11-109. 



Argument string can be an expression; the value must be 
scalar and computational. If the argument is not a string, it 
is converted to a character string. The result string is the 
same type as the converted argument. If the argument 
string is null, the result is a null string; otherwise, the result 
is the reverse of the argument string. 

REVERSE builtin function examples are shown in 
figure 11-107. 



STRINO 
♦ ABC* 
♦1011»B 


REVERSE (STRING) 

♦CBA* 

♦1101»B 



Figure 11-107. REVERSE Builtin Function Examples 



ROUND BUILTIN FUNCTION 

The ROUND builtin function rounds the value of an 
argument at a specified digit and returns the rounded value. 
ROUND syntax is shown in figure 11-108. 



ROUND(x,n) 



Figure 11-108. ROUND Builtin Function Syntax 



Argument x specifies the value to be rounded; the argument 
can be an expression and the value must be scalar and 
computational. Argument n specifies the digit at which 
rounding is to take place; the argument must be a decimal 
integer and can be signed. If x has a floating point value, n 
must be positive. 

Argument x is evaluated and converted to an arithmetic 
value. The result of the function is a real value with the 
base and scale of the converted argument. 

If the converted value is fixed point of precision (p,q), the 
result precision is 

(max(l,min(p-q+l+n,N)), n) 

where N is the maximum precision for the base (14 for 
decimal, 48 for binary). 

If the converted value is floating point, the result precision 
is 

(min(n,N)) 



N ROUND (X.N) 



123.453 

123.456 

123.456 

-123.456 

11.1010116 



2 
2 
-2 
2 
4 



123.450 

123.460 

100.000 

-123.460 

11.10108 



DECIMAL 
EQUIVALENT 



3.69 



Figure 11-109. ROUND Builtin Function Examples 



SIGN BUILTIN FUNCTION 

The SIGN builtin function examines the value of an 
argument and returns an indication of whether the value is 
positive, negative, or zero. SIGN syntax is shown in 
figure 11-110. 



SIGN(x) 



Figure 11-110. SIGN Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to an arithmetic value. The result of the function is a fixed 
binary integer with a value that is determined as follows: 

x > result = 1 
x = result = 
x < result = -1 

SIGN builtin function examples are shown in figure 11-111. 



X 


SIGN(X) 


1.23 


1 


-2.79 


-1 


0.00E*000 





-9.283E*005 


-1 


♦ -1.23* 


-1 



Figure 11-111. SIGN Builtin Function Examples 
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SIN BUILTIN FUNCTION 



SINH BUILTIN FUNCTION 



The SIN builtin function returns the trigonometric sine of a 
value; the argument is assumed to be expressed in radians. 
SIN syntax is shown in figure 11-112. 



The SINH builtin function returns the hyperbolic sine of a 
value. SINH syntax is shown in figure 11-116. 




SINH(x) 



Figure 11-112. SIN Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. The argument is evaluated and con- 
verted to floating point. The mode, base, scale, and 
precision of the result are those of the converted argument. 

SIN builtin function examples are shown in figure 11-113. 



Figure 11-116. SINH Builtin Function Syntax 

Argument x can be an expression; the value must be scalar 
and computational. The argument is evaluated and con- 
verted to floating point. The mode, base, scale, and 
precision of the result are those of the converted argument. 

SINH builtin function examples are shown in figure 11-117. 



X 


SIN(X) 


-3.14159E*000 


-1.18058E-011 


-1.57080E»000 


-1.00000E*000 


-7.8539BE-001 


-7.07107E-001 


O.0000OE*0O0 


0.0O0OOE*OO0 


5.23599E-001 


5.00000E-001 


1.57080E»000 


1*OOOOOE*000 


3.14159E»000 


1.18058E-011 



X 


SINhCX) 


-5.00000E*000 


-7.42032E»001 


-2.00000E*000 


-3.62686E*000 


-1.00000E*000 


-1.17520E»000 


0.00000E*000 


O.O00O0E*0OO 


5.00000E-001 


5.21095E-001 


1.00000E»000 


1.17S20E*000 


2.00000E*000 


3.62686E+000 


5.00000E*000 


7.42032E»001 



Figure 11-113. SIN Builtin Function Examples 



Figure 11-117. SINH Builtin Function Examples 



SIND BUILTIN FUNCTION 

The SIND builtin function returns the trigonometric sine of a 
value; the argument is assumed to be expressed in degrees. 
SIND syntax is shown in figure 11-114. 



SORT BUILTIN FUNCTION 

The SQRT builtin function returns the square root of the 
value of an argument. SQRT syntax is shown in 
figure 11-118. 



SIND(x) 



SQRT(x) 



Figure 11-114. SIND Builtin Function Syntax 



Figure 11-118. SQRT Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. The argument is evaluated and con- 
verted to floating point. The mode, base, scale, and 
precision of the result are those of the converted argument. 

SIND builtin function examples are shown in figure 11-115. 



Argument x can be an expression; the value must be scalar 
and computational. Argument x must not be negative. The 
argument is evaluated and converted to floating point. The 
mode, base, scale, and precision of the result are those of 
the converted argument. 

SQRT builtin function examples are shown in figure 11-119. 



X 


SINO(X) 


-1.80000E*002 


O.O0000E*O0O 


-9.00000E*001 


-1.00000E*000 


-4.50000E*001 


-7.07107E-001 


O.OOOOOE*000 


0.00000E+000 


3.00000E«001 


5.00000E-001 


9.00000E*001 


1.00000E*000 


1.80000E»002 


0.00000E*000 



X 


SQRT(X) 


0.0OOO0E*OO0 


0.00000E»000 


5.00000E-001 


7.07107E-001 


1.00000E*000 


1.00000E«000 


2.00000E*000 


1.41421E*000 


5.00000E*000 


2.23607E*000 


2.0E*000 


1.4E+000 



Figure 11-115. SIND Builtin Function Examples 



Figure 11-119. SQRT Builtin Function Examples 
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SUBSTR BUILTIN FUNCTION 

The SUBSTR builtin function extracts a substring of a 
specified string and returns the substring. SUBSTR syntax is 
shown in figure 11-120. 



SUBSTR(string,position [.length] ) 



Figure 11-120. SUBSTR Builtin Function Syntax 

Arguments string, position, and length can be expressions; 
the values must be scalar and computational. Argument 
string specifies the source string from which the substring is 
to be extracted. Argument position specifies the starting 
position of the substring within the string. Argument length 
specifies the length of the substring to be extracted. 

If argument string is arithmetic, it is converted to a 
character string. If argument string is pictured numeric, its 
character string value is used. Arguments position and 
length are converted to fixed binary integers. 

The result of the function is a string of the same type as the 
converted string argument. If argument position is 1, the 
substring begins with the first character of the string. If 
argument length is not specified, the function returns the 
character or bit designated by argument position and all 
subsequent characters or bits of the converted string. 

The substring specified by arguments position and length 
must be contained within the original string. Position and 
length have the following requirements: 

Imposition and position<=LENGTH(string)+l 

0<=length and length<=LENGTH(string)-position+l 

The STRINGRANGE condition is raised if the requirements 
are not met. 

SUBSTR builtin function examples are shown in 
figure 11-121. 









SUBSTR (STRING. 


STRING 


POSITION 


LENGTH 


POSITION. LENGTH) 


♦ABCDEFG* 


3 


I 


♦O 


♦ABCDEFG* 


3 


• •- 


tCDEFG* 


♦ABCDEFG* 


3.S 


2.e 


♦CD* 


♦ABCDtFG* 


1 





♦ ♦ 


♦ABCDEFG. 


8 





♦♦ 


♦101101+B 


2 


3 


♦011*B 


tlOllOltB 


2 




♦01101*8 



Figure 11-121. SUBSTR Builtin Function Examples 



SUBSTR PSEUDOVARI ABLE 

SUBSTR operates as a pseudovariable when it is used as the 
target of an assignment operation. The SUBSTR pseudo- 
variable replaces a substring of the specified string. 
SUBSTR pseudovariable syntax is shown in figure 11-122. 



Argument string-target must be a character or bit variable. 
Arguments position and length can be expressions; the values 
must be scalar and computational. Argument position 
specifies the starting position of the substring within the 
string. Argument length specifies the length of the 
substring to be replaced. 

Assignment of a source value to the specified substring of 
the variable leaves all other characters or bits of the string 
unmodified. 

The requirements on arguments position and length are the 
same as shown for the SUBSTR builtin function. Note that 
this implies that the SUBSTR pseudovariable cannot be used 
to change the current length of a varying string. 

SUBSTR pseudovariable examples are shown in 
figure 11-123. 



DATATYPE 
OF STRING 



ORIGINAL 
VALUE OF 
STRING 



VALUE ASSIGNEO 
TO SUBSTR 

(STRING. RESULTING 
POSITION. VALUE OF 
POSITION LENGTH LENGTH) STRING 



CHAR(T) ......... 3 

SUIT) .OOU001.8 2 

CHAR (6) V»R ♦ABCOt 3 

CHAR (6) VAR »ABCO. S 



1 ♦»♦ 
3 .100.8 

o «»♦ 



toiooooi.e 

.ABXV. 
♦ABCD. 



Figure 11-123. SUBSTR Pseudovariable Examples 



SUBTRACT BUILTIN FUNCTION 

The SUBTRACT builtin function returns the difference of 
two values with a specified precision. SUBTRACT syntax is 
shown in figure 11-124. 



SUBTRACT(x,y,p[,q] ) 



Figure 11-124. SUBTRACT Builtin Function Syntax 

Arguments x and y can be expressions; the values must be 
scalar and computational. Argument y specifies the value 
that is to be subtracted from argument x. Arguments p 
andq specify the precision of the result; they must be 
decimal integers. Argument q can be signed. 

Arguments x and y are evaluated and converted to arith- 
metic values of the common base and scale. If the common 
scale is fixed point, q can be specified and must be within 
the range -255<=q and q<=255; if q is not specified, it is 
assumed to be zero. If the common scale is floating point, q 
cannot be specified. In either case, p must be greater than 
zero and must not exceed maximum precision (14 for 
decimal, 48 for binary). 

The result of the function is x-y. The base and scale of the 
result are those of the converted arguments. The precision 
of the result is (p) or (p,q). 

SUBTRACT builtin function examples are shown in 
figure 11-125. 



SUBSTR(string-target,position [,length] ) 



Figure 11-122. SUBSTR Pseudovariable Syntax 



TAN BUILTIN FUNCTION 

The TAN builtin function returns the trigonometric tangent 
of a value; the argument is assumed to be expressed in 
radians. TAN syntax is shown in figure 11-126. 
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3 

13.45 
0.142857 
0.142857 
1.42857E-001 
1.01B 



4 

2E*000 

17.356 

17.356 

17.356 

1.10001B 



SUBTRACT (X.Y.P.Q) 



3 -1.000 

1.145000E«001 
3 -17.213 
-17 
-1.72131E*001 
3 -0.3 



Figure 11-125. SUBTRACT Builtin Function Examples 




Figure 11-126. TAN Builtin Function Syntax 

Argument x can be an expression; the value must be scalar 
and computational. Argument x must not be an odd multiple 
of tt/2. The argument is evaluated and converted to 
floating point. The mode, base, scale, and precision of the 
result are those of the converted argument. 

TAN builtin function examples are shown in figure 11-127. 



0.0O0O0E*00O 
7.85398E-001 
1.57000E*000 
3.14159E»000 



TAN(X) 

O.00OO0E*0OO 

1.00000E*000 

1.25577E*003 

•1.18058E-011 



Figure 11-127. TAN Builtin Function Examples 



TANH BUILTIN FUNCTION 

The TANH builtin function returns the hyperbolic tangent of 
a value. TANH syntax is shown in figure 11-130. 



TANH(x) 



Figure 11-130. TANH Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to floating point. The mode, base, scale, and precision of 
the result are those of the converted argument. 

TANH builtin function examples are shown in figure 11-131. 



-1.00000EO20 
-2.00000E*000 
-1.00000E*000 
O.OOOOOE+000 
1.00000E*000 
2.00000E*000 
1.00000E»001 



TANH(X) 

-1.00000E»000 
-9.64028E-001 
-7.61594E-001 
0.00000€»000 
7.61594E-001 
9.64028E-001 
1.00000E*000 



Figure 11-131. TANH Builtin Function Examples 



TAND BUILTIN FUNCTION 

The TAND builtin function returns the trigonometric tan- 
gent of a value; the argument is assumed to be expressed in 
degrees. TAND syntax is shown in figure 11-128. 



TIME BUILTIN FUNCTION 

The TIME builtin function returns a string of six characters 
representing the current time. TIME syntax is shown in 
figure 11-132. 



TAND(x) 



Figure 11-128. TAND Builtin Function Syntax 




Figure 11-132. TIME Builtin Function Syntax 



Argument x can be an expression; the value must be scalar 
and computational. Argument x must not be an odd multiple 
of 90. The argument is evaluated and converted to floating 
point. The mode, base, scale, and precision of the result are 
those of the converted argument. 

TAND builtin function examples are shown in figure 11-129. 



O,00O0OE*000 
4.50000E*001 
8.99000E*001 
9.01000E»001 
1.80000E*0r)2 



TANO(X) 

0.0O0O0E+0OO 
1.00000E*000 
5.72957E*002 
-5.729S7E*002 
0.00000E*000 



Figure 11-129. TAND Builtin Function Examples 



The returned value is in the form •hhmmss' where hh is 
hours, mm is minutes, and ss is seconds. For example: 

DCL TIMEZ PIC '99.99.99* INIT(TIME( )); 

TIME builtin function examples are shown in figure 11-133. 



POSSIBLE VALUES 
OF TIMEO INCLUDE: 

tOOOOOlt 
♦085959* 
♦ 2233441* 



Figure 11-133. TIME Builtin Function Examples 
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TRANSLATE BUILTIN FUNCTION 

The TRANSLATE builtin function performs character sub- 
stitution from one string to another and returns the result 
string. TRANSLATE syntax is shown in figure 11-134. 




Figure 11-134. TRANSLATE Builtin Function Syntax 

Argument string is the source string for the translation. 
Argument replacement is the replacement character 
string. Argument pattern is the string that determines 
which characters are to be replaced. If argument pattern 
is not specified, the character collating sequence is used. 
Argument string, replacement, and pattern can be 
expressions; their values must be scalar and computational. 

All three arguments are converted to character strings. If 
argument replacement is shorter than argument pattern, it 
is extended on the right with blanks until the two strings are 
equal in length. 

The result string is the same as the source string except for 
the following translation: 

For each character in argument string, a search is 
performed for the leftmost identical character in 
argument pattern. 

If such a character is found in pattern, the character in 
the same position in argument replacement is selected 
as the replacement character. 

This replacement character is then substituted for the 
original character in the result. 

TRANSLATE builtin function examples are shown in 
figure 11-135. 









TRANSLATE (STRING. 








REPLACEMENT. 


STRING 


REPLACEMENT 


PATTERN 


PATTERN! 


♦ 105+ 


♦ 0* 


♦ ♦ 


♦000105t 


♦00010S* 


♦ ♦ 


to* 


♦ 1 5* 


tl2.345.678.90t 


♦ ..♦ 


+ .,♦ 


♦12. 345.678. 90* 


♦12.345+ 


♦ ••♦ 


♦ ».♦ 


♦12«345+ 


♦AB CO EFt 


♦ B» 


~" 


♦ B B ♦ 



Figure 11-135. TRANSLATE Builtin Function Examples 



TRUNC BUILTIN FUNCTION 

The TRUNC builtin function truncates the fractional part of 
an argument and returns the integer value. TRUNC syntax 
is shown in figure 11-136. 



the result is a floating point value, the result precision is 
that of the converted argument. If the result is a fixed 
point value, the result precision is 

(min(N,max(p-q+l,l)), 0) 

where N is the maximum precision (p) for the given base (14 
for decimal, 48 for binary), and (p,q) is the precision of the 
converted argument. 

If x is greater than or equal to zero, the result value is 
FLOOR(x). If x is less than zero, the result value is CEIL(x). 

TRUNC builtin function examples are shown in 
figure 11-137. 



3.2 
-3.8 
-3. 875 
•2.50fc*000 
1.26583E+002 



TRUNC (X) 

3 
-3 
-3 
-2.00E*000 
1.26000E+002 



Figure 11-137. TRUNC Builtin Function Examples 



UNSPEC BUILTIN FUNCTION 

The UNSPEC builtin function determines the internal repre- 
sentation of an argument value and returns the value in bit 
string form. UNSPEC syntax is shown in figure 11-138. 



UNSPEC(x) 



Figure 11-138. UNSPEC Builtin Function Syntax 

Argument x must be scalar; it can have unv data tvpe except 
file O!- cut-;/! it c»ir. 3Q an expression, but cannot be a 
constant. The value and length of the bit string result 
depend on the data type and value of x. 

UNSPEC PSEUDOVARIABLE 

UNSPEC operates as a pseudovariable when it is used as the 
target of an assignment operation. The source value is 
converted to a bit string and is then assigned, without 
further conversion, to the internal representation of the 
variable identified by the argument. UNSPEC pseudo- 
variable syntax is shown in figure 11-139. 



UNSPEC(target-variable) 



TRUNC(x) 



Figure 11-136. TRUNC Builtin Function Syntax 

Argument x can be an expression; the value must be scalar 
and computational. Argument x is evaluated and converted 
to an arithmetic value. The result of the function is a real 
value with the base and scale of the converted argument. If 



Figure 11-139. UNSPEC Pseudovariable Syntax 

Argument target-variable must reference a scalar variable. 
The source value is converted to a bit string; its length 
depends on the data type of argument target-variable. 

Any use of the UNSPEC pseudovariable requires detailed 
knowledge, on the part of the programmer, of the internal 
representation of PL/I data. The results are 

implementation-dependent and might not remain constant 
across system modifications. 
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VALID BUILTIN FUNCTION 

The VALID builtin function determines whether or not the 
value of a pictured item is valid according to its picture, and 
returns a bit string indication of its validity. VALID syntax 
is shown in figure 11-140. 



VA L I D (pictured -variable) 



Figure 11-140. VALID Builtin Function Syntax 



Argument pictured-variable must be scalar and must be a 
reference to a pictured variable; it can be either pictured 
numeric or pictured character. If the character string value 
of the argument is a possible legal result of assignment to 
that variable, the result of the function is 'l'B; otherwise, 
the result is 'O'B. 

VALID builtin function examples are shown in figure 11-141. 



DATATYPE 


STRING 




OF X 


VALUE OF X 


VAL1D(X> 


PIOAAA99* 


*JAN05* 


♦ 1*8 


PIOAAA99* 


*JAN05* 


*0*B 


PIOAAA99* 


♦00105* 


*0*ti 


PIC*$4$9V.99* 


♦ $33.25* 


*i*e 


PIC*$$S9V.99* 


♦ 33.25* 


*0*B 



Figure 11-141. VALID Builtin Function Examples 



VERIFY BUILTIN FUNCTION 

The VERIFY builtin function returns a value that indicates 
the position in one character string of the first character 



that does not appear anywhere in a second character string. 
VERIFY syntax is shown in figure 11-142. 



VERIFY(string1,string2) 



Figure 11-142. VERIFY Builtin Function Syntax 

Both arguments are first converted to character string. 
Each character in stringl, taken in left-to-right order, is 
compared with all characters in string2 to see if string2 
contains that character anywhere. 

The result is a fixed binary integer indicating the position 
within the converted value of stringl of the leftmost 
character within stringl that has no match in string2. 

The result is zero under any of the following circumstances: 

Stringl is a null string. 

All stringl characters are found in string2. 

VERIFY builtin function examples are shown in 
figure 11-143. 



STRIN01 



STRING2 



♦* ♦ 0123456789* 

♦ 123.78* ♦ 0123456789* 

♦ 123.78* * 0123456789.* 

♦ 123.78* ♦♦ 



VERIFY 
(STRING1.STRING2) 


6 

1 



Figure 11-143. VERIFY Builtin Function Examples 
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STATEMENTS 



12 



PL/I statements establish names to be used in the program, 
state the characteristics that are to be associated with the 
names, and describe the operations to be performed at run 
time. A statement consists of the language keywords in 
combination with programmer-supplied elements. 



This section of the manual defines the syntax for each 
statement that can be used in the source program. Coding 
conventions and specific rules regarding the use and posi- 
tioning of delimiters are detailed in section 1, PL/I Source 
Program. 



STATEMENT CLASSIFICATION 

Statements can be grouped into nine functional categories. 
The categories and their respective statements are listed in 
table 12-1. The categories are not significant to the 
language; they are presented for descriptive purposes only. 



PREFIXES 

Prefixes can be grouped into two general categories: 
condition and statement. Condition prefixes enable or 



TABLE 12-1. CLASSIFICATION OF STATEMENTS 



Functional 
Category 


Statement 


Statement Description 


Functional 
Category 


Statement 


Statement Description 


Declaration 


DECLARE 


Establishes explicit decla- 


Program 


IF 


Allows the flow of control 






rations for the identifiers. 


Control 
(Cont'd) 




to take alternate paths 
depending on the value of 


Structural 


BEGIN 


Denotes the beginning of 






an expression. 






a begin block. 




Null 


Indicates no action is to 




DO 


Denotes the beginning of 






be taken. 






a do group. 




RETURN 


Terminates a procedure 
activation and returns 




END 


Denotes the end of a pro- 
cedure block, begin block, 






control to the point of 
invocation. 






or a do group. 




STOP 


Terminates program 




ENTRY 


Denotes a secondary 






execution. 






point of a procedure. 


I/O Control 


CLOSE 


Closes a file and releases 




PROCEDURE 


Denotes the beginning of 
a procedure block. 




OPEN 


all storage associated with 
the file. 

Opens a file for subsequent 


Storage 


ALLOCATE 


Reserves storage for con- 






I/O operations. 


Control 




trolled or based variables. 














Stream I/O 


FORMAT 


Specifies the formats and 




FREE 


Releases previously allo- 
cated storage for con- 
trolled or based variables. 






lengths of data item values 
transmitted during edit- 
directed stream I/O. 


Interrupt 


ON 


Establishes the on-unit for 




GET 


Specifies input operations 
on a stream file. 


Handling 




a condition. 




PUT 


Specifies output opera- 




REVERT 


Removes the on-unit for 
a condition. 






tions on a stream file. 








Record I/O 


DELETE 


Deletes a record from a 




SIGNAL 


Simulates a condition. 




LOCATE 


record file. 

Allocates a record buffer 


Data 


Assignment 


Assigns the value of an 






and transmits a previously 


Manipulation 




expression to one or more 
target items. 




READ 


located record to a record 
file. 

Reads a record from a 


Program 


CALL 


Invokes a procedure as a 






record file. 


Control 




subroutine. 




REWRITE 


Replaces a record in a 
record file. 




GOTO 


Transfers control to a 
labeled statement. 




WRITE 


Transmits a record to a 
record file. 
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disable computational conditions that can cause program 
interrupts. Statement prefixes identify and provide a means 
of referencing statements or blocks; they are classified as 
entry, format, and label. 

Prefixes precede the body of a statement. Each must be 
terminated by a colon. Any statement can have one or more 
prefixes with the following restrictions: 

• Each ENTRY and PROCEDURE statement must have at 
least one entry prefix. 

• Each FORMAT statement must have at least one 
format prefix. 

• DECLARE, END, and ENTRY statements cannot have 
condition prefixes. 

• The first or only statement of an on-unit cannot have a 
label prefix. 



ENTRY PREFIX 

An entry prefix is used only with the ENTRY and 
PROCEDURE statements. Either statement requires at 
least one. Entry prefix syntax is shown in figure 12-1. 



entry-name : 



Figure 12-1. Entry Prefix Syntax 



FORMAT PREFIX 

A format prefix is used only with the FORMAT statement. 
Each FORMAT statement requires at least one. Format 
prefix syntax is shown in figure 12-3. 



format-name 



Figure 12-3. Format Prefix Syntax 



irmat prefix cannot be su pted. The format-name is 
an identifier that is used to reference a FORMAT statement 
and cause it to be executed during edit-directed stream I/O. 
Multiple format-names can be used to provide alternate 
methods of referring to the same statement. Each format- 
name is established as a format constant by the compiler. 
Control cannot be transferred to a format constant by a 
GOTO statement. 

Examples of format prefixes are shown in figure 12-4. 



GET E;)IT(A»6> CP(INP1))I 
PUT EOIT(HEADER) <R<0UT1))I 



INPi: 
OUTi: 



F0QMAT<FU)*E<7*3>> » 
FORMAT (PAGE*A> J 



Figure 12-4. Sample Format Prefixes 



A :•::■■. prefix : 'i .' ■ ..".- • The entry-name is an 

identifier that represents an entry point at which the 
procedure can be invoked. Each entry-name is established 
as an entry constant by the compiler. Control cannot be 
transferred to an entry constant by a GOTO statement. 

The entry-name on a PROCEDURE statement is the primary 
entry point of the procedure block. Multiple entry-names 
can be used to provide alternate methods of referring to the 
same statement. Any of the entry-names on the 
PROCEDURE statement can be used to invoke the pro- 
cedure at the PROCEDURE statement. 

The entry-name on an ENTRY statement is a secondary 
entry point of the procedure block in which the statement 
appears. Multiple entry-names can be used to provide 
alternate methods of referring to the same statement. Any 
of the entry-names on the ENTRY statement can be used to 
invoke the procedure at the ENTRY statement. 

Examples of entry prefixes are shown in figure 12-2. 



PAYROLL: PROCEDURE; 



SALARY: ENTRY<P1»P2) RETURNS<rixED>» 



OVTIMEJ £NTRY<P3»P*> » 



LABEL PREFIX 

A label prefix is used with any statement except ENTRY, 
PROCEDURE, and FORMAT. A label prefix cannot be used 
with the first statement of an on-unit. Label prefix syntax 
is shown in figure 12-5. 



label [( subscript , , , )] 



Figure 12-2. Sample Entry Prefixes 



Figure 12-5. Label Prefix Syntax 

The label is an identifier that is used to reference the 
associated statement. Multiple labels can be used to provide 
alternate methods of referring to the same statement. Each 
label is established as a label constant by the compiler. 
Control can be transferred to a label constant by a GOTO 
statement. 

Each subscript must be an optionally signed decimal integer. 

Examples of label prefixes are shown in figure 12-6. 



CONDITION PREFIX 

A condition prefix can be used with any statement except 
END, ENTRY, and DECLARE. The condition prefix enables 
or disables program interrupts that can result when compu- 
tational conditions are raised. Condition prefix syntax is 
shown in figure 12-7. 
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TAGi:'. 
TACiM) 

• 


OOPl : 


GET 

CALL 


LI$T(A»B)I 

TRANS AC! 


• 

81: HFGP'S 

• 






• 

FINAL: 


ENOt 







Figure 12-6. Sample Label Prefixes 



{ enabled-condition-name \ 
' \ disabled-condition-name ) 



) : 



Figure 12-7. Condition Prefix Syntax 

Each enabled-condition-name or disabled-condition-name 
can be any of the keywords listed in table 12-2. Condition 
prefixes must not contain conflicting names, such as SIZE 
and NOSIZE; redundant names are ignored. Refer to 
section 10 for additional information regarding condition 
prefix specification and handling. 



TABLE 12-2. CONDITION PREFIX CONDITION NAMES 



Enabled-Condition-Name 


Disabled-Condition-Name 


CONVERSION or 
CONV 


NOCONVERSION or 
NOCONV 


FIXEDOVERFLOW or 
FOFL 


NOFKEDOVERFLOW or 
NOFOFL 


OVERFLOW or 
OFL 


NOOVERFLOW or 
NOOFL 


SIZE 


NOSIZE 


STRINGRANGE or 
STRG 


NOSTRINGRANGE or 
NOSTRG 


SUBSCRIPTRANGE or 
SUBRG 


NOSUBSCRIPTRANGE or 
NOSUBRG 


UNDERFLOW or 
UFL 


NOUNDERFLOW or 
NOUFL 


ZERODIVIDE or 
ZDIV 


NOZERODIVIDE or 
NOZDIV 



When an enabled-condition-name is specified, the condition 
is enabled and subject to interrupt. If the condition is raised 
during execution, a programmed or system action takes 
place. The action is called an on-unit and is detailed under 
ON Statement in this section. Enabling a condition ensures 
that errors will be detected. 

When a disabled-condition-name is specified, the condition is 
disabled and not subject to interrupt. It is an error if the 
condition is raised during execution. Disabling a condition 
improves the execution speed of the program. 



When condition prefixes are used in combination with entry, 
format, or label prefixes, no restrictions are imposed on the 
order in which they can appear. Examples of condition 
prefixes used alone and in combination with other prefixes 
are shown in figure 12-8. 



(SUE): sUM=A*Bs 

(OVERFLOW) J SUM=A»B» 

(S17E.0VERFLOW): SUM»A*8; 

(SIZE) : (OFL) t S'IM=A*BI 

(SIZE):P: SUM=A*B/C; 

PR0B1 : (SIZE. OVERFLOW) I S!JM*A*B»C/D; 

(SIZE»OFL> tPROBlsPROBA! SUM»A*B«c/D« 

(size) :pr0b1 i (ofl) :p«obbs si)m«a*>»c/ot 
(Noofl) :bi: begin; 



Figure 12-8. Sample Condition Prefixes 



STATEMENT DESCRIPTIONS 

Statement descriptions appear in alphabetic order. Each 
statement description includes the statement syntax, appli- 
cable rules, processing details, and examples. 

Prefixes are indicated in the syntax as follows: 

When any combination of label and condition prefixes is 
allowed, the notation [prefix]. . . is used. 

In all other cases, prefix options are specifically 
indicated. 

Although prefixes are shown in the syntax diagrams, a prefix 
is not considered to be contained in a statement. 



ALLOCATE STATEMENT 

The ALLOCATE statement allocates a generation of storage 
for controlled or based variables. One ALLOCATE state- 
ment can allocate both controlled and based variables. The 
syntax of the ALLOCATE statement is shown in figure 12-9. 



ALLOCATE I 
ALLOC ! 



[prefix] . . 

1 controlled-variable 



J based-variable 



[I 



SET(locator) III 
IN(area) || 



Figure 12-9. ALLOCATE Statement Syntax 
The following rules apply: 

• A condition prefix applies to execution of the state- 
ment, including the evaluation of dimension, INITIAL, 
or other attributes of a variable being allocated. 
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• The controlled-variable can be a scalar, an array, or a 
structure; it cannot be an array element or a structure 
member. The variable must be explicitly declared with 
the CONTROLLED attribute. It can have either the 
INTERNAL or EXTERNAL attribute. 

• The based-variable can be a scalar, an array, or a 
structure; it cannot be an array element or a structure 
member. The variable must be explicitly declared with 
the BASED attribute. 

• The IN and SET options can appear in either order. 

• The locator specified by the SET option can be a scalar, 
an array element, or a structure member; it cannot be 
an array. 

• The area specified by the IN option can be a scalar, an 
array element, or a structure member; it cannot be an 
array. The area must have a generation of storage. 



Allocating a Controlled Variable 

When a controlled variable is allocated, a new generation of 
storage is added as the top entry in the stack of generations 
currently associated with the variable. Extent expressions 
in the declaration of the controlled variable are evaluated 
when the variable is allocated. 



Allocating a Based Variable 

When a based variable is allocated, a locator value identi- 
fying the generation is created and assigned to a locator 
variable. The new generation can then be accessed through 
this locator variable. Extent expressions for the based 
variable are evaluated when the variable is allocated and 
each time the variable is referenced. 



SET Option 

The SET option specifies the locator (pointer or offset) 
variable. The value assigned to the locator by the 
ALLOCATE statement identifies the newly allocated based 
generation. 

If a based variable is allocated without a SET option, an 
assumed SET option is constructed from the declaration of 
the based variable. If the locator in the specified or 
assumed SET option is an offset variable, the allocation is 
made within an area. 

SET option processing is summarized in table 12-3. 



IN Option 

The IN option specifies the area in which the based variable 
is to be allocated. 



If the locator in the specified or assumed SET option is an 
offset variable, the allocation is made within an area. 

If the locator in the specified or assumed SET option is an 
offset variable and the based variable is allocated without 
an IN option, an assumed IN option is constructed from the 
declaration of the offset variable. The declaration must 
contain OFFSET (area), where area is a scalar area variable 
that has a generation of storage. 

If the locator in the specified or assumed SET option is a 
pointer variable, the allocation is made within an area only 
if the based variable is allocated with an explicit IN option. 

IN option processing is summarized in table 12-4. 



TABLE 12-4. IN OPTION PROCESSING 



Locator-Variable 
Declaration 


IN Option 
Specified 


IN Option 
Not Specified 


OFFSET(area- 
variable) 

OFFSET 
POINTER 


IN option area gen- 
eration is used. IN 
option and declara- 
tion of offset vari- 
able must specify 
the same area 
generation. 

IN option area gen- 
eration is used. 

IN option area gen- 
eration is used. 

- 


Declared area 
variable is used. 

Illegal. 

The based vari- 
able is allocated; 
it is not allo- 
cated within an 
area. 



Statement Processing 

Execution of the ALLOCATE statement causes a generation 
of storage to be allocated for each named variable. The 
variables to be allocated are processed in left-to-right 
order, and each variable is processed through the steps listed 
in table 12-5. 



TABLE 12-3. SET OPTION PROCESSING 



Based Variable 
Declaration 


SET Option 

Specified 


SET Option 
Not Specified 


BASED(locator- 
variable) 

BASEDdocator- 
valued-funetion) 

BASED 


SET option locator 
is used; declared 
locator is ignored. 

SET option locator 
is used. 

SET option locator 
is used. 


Declared locator 
is used. 

Illegal. 

Illegal. 



A nonlocal GOTO must not cause the termination of any 
block activation that has an immediate dynamic predecessor 
currently executing an ALLOCATE statement. 

Examples of ALLOCATE statements are shown in 
figure 12-10. 



Conditions 

AREA, STORAGE, and computational conditions can be 
raised during ALLOCATE statement execution. If control 
returns from an AREA or STORAGE on-unit and sufficient 
storage has not been provided, the program will loop 
indefinitely. 
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TABLE 12-5. ALLOCATE STATEMENT PROCESSING 



Step 



2. 



Performed For 



A controlled or 
based variable. 



A controlled 
variable. 



A based variable 
with a specified 
or assumed IN 
option. 



A based variable 
with no specified 
or assumed IN 
option. 



Any based variable. 



A based structure. 



A generation con- 
taining one or 
more areas. 

A controlled or 
based variable. 



Action Taken 



Extent expressions are eval- 
uated to determine sizes of 
arrays, areas, and strings; 
the data description is con- 
structed from these results 
and from the attributes in 
the declaration of the based 
or controlled variable. 

The stack of generations 
currently associated with 
the controlled variable is 
pushed down; a new genera- 
tion is allocated and placed 
at the top of the stack. 

If insufficient storage is 
available, the STORAGE 
condition is raised. On nor- 
mal termination of the 
STORAGE on-unit, step 2 is 
repeated. 

The based variable is allo- 
cated within the specified 
area. 

If insufficient storage is 
available, the AREA condi- 
tion is raised. On normal 
termination of the AREA 
on-unit, steps 1 and 3 are 
repeated. 

The based variable is allo- 
cated; it is not allocated 
within an area. 

If insufficient storage is 
available, the STORAGE 
condition is raised. On 
normal termination of the 
STORAGE on-unit, step 4 
is repeated. 

A locator value identifying 
the new generation is 
assigned to the locator vari- 
able specified in the SET op- 
tion or in the declaration of 
the based variable. 

Appropriate values are 
assigned to all variables 
appearing in REFER op- 
tions in the declaration of 
the based variable. 

EMPTY ( ) is assigned to all 
areas in the new generation. 



The newly allocated genera- 
tion is initialized according 
to INITIAL attributes in its 
declaration. 



ALLOCATE A,R; 

ALLOCATE C SET<P) IN <X) ; 

ALLOC IN(Y),E SET(Q) t 



DCL F A9EA( 1000) BASED <P> tG AREA <t00) BASED <Q>! 
ALLOCATE H,K IN <F> ; 



DCL L 8ASED<P)»M 
ALLOCATE M,L? 



controlled; 



Figure 12-10. Sample ALLOCATE Statements 

ASSIGNMENT STATEMENT 

The assignment statement causes the value of the expres- 
sion on the right of the assignment symbol (=) to be assigned 
to each target on the left of the assignment symbol. The 
syntax of the assignment statement is shown in figure 12-11. 



[prefix] . . . assignment-target. 



expression 



Figure 12-11. Assignment Statement Syntax 

The following rules apply: 

• Each assignment-target must be a scalar variable or 
pseudo variable. The assignment-target can be an array 
element or a structure member, out cannot be nn an-uy 
';• structure. It can be subscript;-., >ut cai 10I ■ :- e my 

hdmnnk subscripts. 

• Assignment-target and expression data types must be 
compatible. They must all be in one of the four 
following classes: computational (arithmetic, string, or 
pictured); locator (pointer or offset); label; or area. 
I rev f ir.not bo of tyi>i- '.iij, cril'-y, or- format. 

• The ^xprcR-ion nriM yield ;i .scalar valur. 

The assignment statement is processed through the following 
steps in the order given. The program must not depend upon 
the order of evaluation of variable references, function 
references, and expressions within the assignment-target or 
the expression to the right of the assignment symbol (except 
as controlled by parentheses). 

1. The expression on the right of the assignment symbol is 
evaluated first to produce a result value. The result 
value is used as the source value for assignment. The 
source value is not modified during subsequent proc- 
essing of the statement. 

2. Assignment-targets are processed in left-to-right order. 
For each assignment-target, the following steps are 
taken: the target reference is evaluated; the source 
value is converted, if necessary, to an intermediate 
value with the data type of the target; and the 
intermediate value is assigned to the target. When the 
data type of the source value is the same as that of the 
target, assignment consists of copying the source value 
to the target. 
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Expression evaluation, conversion, and assignment are de- 
tailed in section 7, Data Manipulation. 

CONVERSION, SIZE, STRINGRANGE, and SUBSCRIPT- 
RANGE conditions can be raised during the assignment 
action; computational conditions can be raised during evalu- 
ation of any of the expressions in the statement. If a 
condition is raised, the current established on-unit is 
activated. 

Examples of assignment statements are shown in 
figure 12-12. 



a = x; 




A. B.C = 


. 


A(I,J) = X»Y-H 


0NS0URCEO 


= ft; 


SUBSTS?(A(2 


,») * ♦ABCDEF+? 


X»Y = 1% 


« Equivalent to X=Z; Y=Z; 


X = Y = Z* 


« Y=Z is a comparison expression with 

a value of '1'B if true and 'O'B if false. 
If Y is equal to Z, the value '1'B is 
assigned to X. 


An assignment can depend upon previous assignments 
in the same statement. For example: 


I = 3; 

I»B(I*1) = 


1*1 1 - — sets 1 to 4 and B(5) to 4 



Figure 12-12. Sample Assignment Statements 



BEGIN STATEMENT 

The BEGIN statement, together with its associated END 
statement, delineates a sequence of statements called a 
begin block. A begin block is used primarily to specify the 
scope within which declared names are known, and to 
control the allocation and use of automatic variables. The 
syntax of a begin block is shown in figure 12-13. The 
syntax of the BEGIN statement is shown in figure 12-14. 

The following rule applies: 

• A condition prefix applies to all statements contained in 
the begin block. The only exception is when a contained 
statement or block has a condition prefix enabling or 
disabling the same condition. 

Execution of a BEGIN statement causes the begin block to 
be activated. A BEGIN statement is executed when it is 
encountered during the normal sequential flow of control or 
when control is transferred to it by a GOTO statement. 

A BEGIN statement label is declared as a label constant in 
the block that contains the begin block; therefore, the same 
name can be redeelared in the begin block. 



BEGIN statement 

[ block-unit ] . . . 
END-statement 

where block -unit is 

'procedure-block 
begin-block 
do-group 

ALLOCATE-statement 
assign ment-statement 
CALL-statement 
CLOSE-statement 
DECLAR E-statement 
DELETE-statement 
FO R MAT-statement 
F REE-statement 
GET-statement 
GOTQ-statement 
IF-statement 
LOCATE-statement 
null-statement 
ON-statement 

' OPEN-statement 
PUT-statement 
READ-statement 
RETURN-statement 
REVERT-statement 
REWRITE-statement 
SIGNAL-statement 
STOP-statement 
WR ITE-statement 



Figure 12-13. Begin Block Syntax 



[prefix]. . . BEGIN ; 



Figure 12-14. BEGIN Statement Syntax 
Examples of BEGIN statements are shown in figure 12-15. 

CALL STATEMENT 

The CALL statement causes a procedure to be invoked as a 
subroutine. The syntax of the CALL statement is shown in 
figure 12-16. 

The following rules apply: 

• The subroutine-reference must be an entry constant or 
an entry parameter. An entry constant is the entry 
prefix on a PROCEDURE or ENTRY statement, or an 
external entry constant declared by DECLARE state- 
ment. 

• The PROCEDURE or ENTRY statement identified by 
subroutine-reference must not have a RETURNS 
attribute. 

• The subroutine-reference must not reference a function 
entry point. 
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a: beg If*: 


• 




• 




END 


A: 


ON AREA 


BEGIN! 




• 




• -' ' 




• 

eno: 


<srze> : 


«: BEGIN! 




• 




• 


c : o i 


BEGIN! 




• 




• 




ENO C! 
ENO B! 



Figure 12-15. Sample BEGIN Statements 



[prefix] . . . CALL subroutine-reference [([argument, , ,])] 



Figure 12-16. CALL Statement Syntax 



The number of arguments in the CALL statement must 
equal the number of parameters listed in the 
PROCEDURE or ENTRY statement identified by the 
subroutine-reference. If the subroutine-reference is an 
external entry constant, the number of arguments must 
equal the number of parameters declared for the entry 
constant. 



When the CALL statement is executed, the referenced 
procedure is invoked as a subroutine. Arguments in the 
CALL statement are passed to corresponding parameters in 
the PROCEDURE or ENTRY statement of the invoked 
procedure. Refer to section 6 for details regarding argu- 
ment passing. 

Argument expressions are evaluated in the block activation 
in which the CALL statement is executed; consequently, the 
expressions cannot depend on values established by the new 
block activation. Any on-units activated as a result of 
argument expression evaluation are activated before the 
new block activation occurs. 

The block containing the entry point to be invoked is 
activated, and control is transferred to the designated entry 
point in that block. If the block activation to which control 
is transferred terminates by execution of a RETURN or END 
statement, control returns to the statement following the 
CALL statement. 

Examples of CALL statements are shown in figure 12-17. 



CALL 


A! 




CALL 


All! 




CALL 


B<CODE»I*Jt 


TIMED)! 


CALL 


C<*NONE*>» 





Figure 12-17. Sample CALL Statements 

CLOSE STATEMENT 

The CLOSE statement closes each referenced file. The 
syntax of the CLOSE statement is shown in figure 12-18. 

The following rules apply: 

• Each file-reference must name a file constant or a file 
variable. 

• The ENVIRONMENT option specified for a file can 
precede or follow the FILE option. 



Each argument is an expression that can have a scalar 
or aggregate value. 

Arguments must be compatible with the corresponding 
parameters. Each argument and the corresponding 
parameter must both be in one of the following six 
classes: computational (arithmetic, string, or pictured); 
locator (pointer or offset); label; area; entry; or file. 
An argument cannot be a format value. 

The data type, aggregate type, and alignment of an 
aggregate argument must match those of the corre- 
sponding parameter as defined in section 6, References. 



ENVIRONMENT Option 

The ENVIRONMENT option specifies CRM file processing 
options. Options represented by the ENVIRONMENT option 
expression augment the CYBER Record Manager File Infor- 
mation Table (FIT) for the file. 

Some of the options permitted on the CYBER Record 
Manager FILE control statement can be included. The only 
useful parameter for a close operation is the close flag, CF, 
which provides for file positioning after the close operation. 
Refer to section 9, CYBER Record Manager Interface, and 
to the CYBER Record Manager reference manuals for 
additional details. 



[prefix]. . . CLOSE \FILE(file-reference) 



(environment) 



Jenv 



(expression) 



Figure 12-18. CLOSE Statement Syntax 
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Statement Processing 

The files to be closed are processed in left-to-right order. If 
a file is not open, no action is taken for that file. Each open 
file is processed through the following steps: 

1. The ENVIRONMENT option expression is evaluated and 
converted to character string. 

2. If the file is an output record file and an allocated 
buffer created by a previous LOCATE statement execu- 
tion exists, the buffer is written as a record. If a key 
value is associated with the buffer, the value is used as 
the record key. The KEY and RECORD conditions can 
be raised during this step. 

3. If the file has a buffer allocated by the previous 
execution of a LOCATE statement or a READ state- 
ment with a SET option, that buffer is freed. 

4. The ENVIRONMENT character string is used to estab- 
lish CRM FIT fields before the CRM file is closed. The 
status of the file is set to closed, and the CRM file is 
closed by CYBER Record Manager. 

5. All file status information added during file opening is 
discarded. 

When all file-references have been processed, control passes 
to the statement following the CLOSE statement. A closed 
file can subsequently be reopened. On each opening, the file 
can have a different completed set of file description 
attributes and can be associated with a different CRM file. 

Examples of CLOSE statements are shown in figure 12-19. 



CLOSE FIlE<FM 

CLOSE FILE(A)»FILE(B)I 

ON FNDFlLE<r> CLOSE FILEJFM 

CLOSE FILE«FJ ENVIRONMENT <*CF»N*> I 

OCL CLOSEFG CHAR(5> INITI*R»>» 
CLOSE FILE (A) ENV(*CF«» vv CLOSEFG) I 



Figure 12-19. Sample CLOSE Statements 



Conditions 

Conditions that can be raised when an allocated buffer is 
being written during CLOSE statement execution include: 
KEY, RECORD, and TRANSMIT. 

If the key value associated with the allocated buffer 
duplicates an existing key in the CRM file, the KEY 
condition is raised and the record is not written. If 
control returns from the KEY on-unit, execution con- 
tinues with the next file to be closed. 

If the length of the allocated buffer conflicts with the 
record length specified for the CRM file, the RECORD 
condition is raised and the record is not written. If 
control returns from the RECORD on-unit, the ERROR 
condition is raised. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the on-unit, 
execution continues with the next file to be closed. 



Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 

DECLARE STATEMENT 

The DECLARE statement is used during compilation to 
establish explicit declarations for identifiers. The syntax of 
the DECLARE statement is shown in figure 12-20. 



(declare) _, , . 

[label:] . . . < > declaration, , , ; 



where declaration is 



„ (identifier I... „. . . .. , 

[level] < > [dimension-suffix] [attribute] . . . 

I (declaration, , ,)l 



Figure 12-20. DECLARE Statement Syntax 

The following rules apply: 

• The statement cannot have a condition prefix. 

• Each level is an unsigned decimal integer. 

The DECLARE statement establishes declarations for iden- 
tifiers and can specify attributes that are to be associated 
with the identifiers. An identifier can have only one 
meaning in a given block; therefore, only one explicit 
declaration for an identifier can be made in one block. 

The use of level numbers creates a structure declaration. 
Refer to the structure attribute in section 4. 

The dimension-suffix specifies the dimension attribute. 
Refer to the dimension attribute in section 4. 

Declarations can be factored if identifiers have the same 
attributes or level numbers. This convention reduces the 
need for repeated specification of the same attribute or 
level number. 

Attributes are factored by enclosing the identifiers having 
the same attributes in parentheses and following the 
parenthesized list with the set of applicable attributes. For 
example: 

DECLARE (A,B,C) FDCED DECIMAL (5,2); 

is equivalent to 

DECLARE A FDCED DECIMAL (5,2), 
B FIXED DECIMAL (5,2), 
C FIXED DECIMAL (5,2); 

Structure level numbers are factored by enclosing the 
identifiers and attributes in parentheses and preceding the 
parenthesized list with the single level number. For 
example: 

DECLARE 1A, 2(X FDCED, Z AREA(IOO)); 

is equivalent to 

DECLARE 1 A, 

2 X FDCED, 

2 Z AREA(IOO); 

Examples of factored and defactored DECLARE statements 
are shown in figure 12-21. 
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Factored Declarations 




Equivalent Defactored Declarations 


DCLIA.9 DECIMAL) FLOATS 


DCL 


A FLOAT. B DECIMAL FLOAT; 


DCl.ll D. 2 (•:. 3(F FIXED. G AREA O-i0> > 8 


DCL 


I D. 


DCLKX BIT(S).Y CHAR(IO)) STATIC. Z BASED) INTERNAL* 




2 F. 


DCL(P.fJ) (10.10)! 




3 F FIXED, 

3 G AREA (300) S 




DCL 


X 8IT(5) STATIC INTERNAL. 
V CHAR(IO) STATIC INTERNAL. 
Z BASED INTERNALS 




DCL 


P(10.10). QU0.10H 


DCL X 8IT(3).1A. 2(f), C), 3D(?,2). P(I.J) POINTER! 


DCL 


X BIT(3)8 




DCL 


1 A. 


A statement can contain mixed declarations of scalar 




2 R» 
2 C« 


items, arrays and structures. The end of a major 




3 0(2. 2>< 


structure is marked by an item that has no level num- 


DCL 


P(I.J) pointer; 


ber, or one that has a level 1, or the end of the 






DECLARE statement. 







Figure 12-21. Sample DECLARE Statements 



Refer to section 5, Declarations, for detailed information 
regarding explicit declarations and section 4, Attributes, for 
detailed descriptions of attributes. 



DELETE STATEMENT 

The DELETE statement deletes a record from the CRM file 
associated with the referenced file. The syntax of the 
DELETE statement is shown in figure 12-22. 



[prefix]. . . DELETE FILE(file-reference) 
w 1 ; 



3. The KEY option expression is evaluated and converted 
to a character string. The record specified by the KEY 
option is deleted. If the file is SEQUENTIAL, the 
current-record designator is set to designate the record 
preceding the deleted record. 

4. If the file has an allocated buffer from previous 
execution of a READ statement with a SET option, that 
allocated buffer is freed. 

Examples of DELETE statements are shown in figure 12-23. 



DELETE FILE(A) KEY(143)S 
DELETE FILE(PAV) KEY<*A*vvID)l 



Figure 12-22. DELETE Statement Syntax 



Figure 12-23. Sample DELETE Statements 



The following rules apply: 

• The FILE and KEY options can appear in either order 
after the DELETE keyword. 

• The file-reference must be a file constant or a file 
variable. 

• Thfc 3 IF.I.ETE stulerr.e.nt miM hive % KEY option, 

• The KEY expression must be scalar and computational. 



Statement Processing 

The DELETE statement is processed through the following 
steps: 

1. If the file is not open, an implicit file opening is 
executed. Implied attributes RECORD and UPDATE 
are supplied for the file opening. 

2. The file must now have the RECORD, UPDATE, and 
KEYED attributes. 



Conditions 

Conditions that can be raised during DELETE statement 
execution include: UNDEFINEDFILE, KEY, and TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised; if the file is open, 
processing of the statement continues. 

The KEY condition is raised when the value of the KEY 
option does not identify a record in the CRM file. If 
control returns from the KEY on-unit, program execu- 
tion continues at the statement following the DELETE 
statement. 



The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the DELETE statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 
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DO STATEMENT 

The DO statement, together with its associated END 
statement, delineates a sequence of statements called a do 
group. The syntax of a do group is shown in figure 12-24. 
The DO statement controls the number of times the do 
group is executed, and it can cause a value to be assigned to 
an index variable each time the do group is executed. The 
syntax of the DO statement is shown in figure 12-25. The 
syntax reflects three types of operations: noniterative DO, 
DO WHILE, and indexed DO. Notice that the WHILE 
expression (but not the TO and BY expressions) must always 
be enclosed in parentheses. 



DO-statement 

[ block-unit ] . . . 
END-statement 

where block-unit is 

'procedure-block 
begin-block 
do-group 

ALLOCATE-statement 
assignment-statement 
CALL-statement 
CLOSE-statement 
D EC LA R E -statement 
I DELETE-statement 
jENTRY-statement 
I FORMAT-statement 
F REE-statement 
GET-statement 
GOTO-statement 
IF -statement 
LOCATE-statement 
null-statement 
ON-statement 
' OPEN-statement 
PUT-statement 
READ-statement 
RETURN-statement 
REVERT-statement 
REWRITE-statement 
SIGNAL-statement 
STOP-statement 
kWRITE-statement 



Figure 12-24. Do Group Syntax 

The following rules apply: 

• A condition prefix on the DO statement refers only to 
the DO statement and not to other statements within 
the do group. 

• Each expression must yield a scalar value. 

• The data type and value of each WHILE expression must 
permit conversion to a bit string. 

• The index must be a scalar variable or pseudovariable. 

• If the data type of the index is noncomputational, the 
TO and BY options are not permitted. 



• The data type and value of each start-expression must 
permit assignment to the index. 

• The TO and BY options can appear in either order. 

• The data type and value of a TO or BY expression must 
permit conversion to arithmetic. 

• If a do-specification contains a TO option but not a BY 
option, BY 1 is assumed. 

• The block that immediately contains an ENTRY state- 
ment must be a procedure block; an ENTRY statement 
cannot be contained in an iterative do group that is 
contained in that block. 



The three forms of the DO statement are described in the 
following paragraphs. 



Noniterative 


DQ 








[prefix] . . . 


DO ; 








DO WHILE 










[prefix] . . . 


DO WHILE (expression) 






Indexed DO 


DO index = 


do-specification, , , ; 




[prefix] . . . 


where do-specification is 








. rii T ° 

start-expression 1 


expression II 
expression II 


[WHILE(expression)] 



Figure 12-25. DO Statement Syntax 



Noniterative DO 

A noniterative DO is executed once. The DO statement 
consists of the single word DO followed by a semicolon. 

When the DO statement is encountered, control passes to 
the statement following the DO statement. When the END 
statement of the group is encountered, control passes to the 
statement following the END statement. 

Control can be transferred from a point outside a non- 
iterative do group to a statement or block contained in the 
group unless the statement or block is within a nested block, 
a nested DO WHILE, or a nested indexed DO. 

A noniterative DO is commonly used to delineate a THEN or 
ELSE clause in an IF statement. This approach provides 
grouping without block activation overhead. 

Examples of noniterative DO operations are shown in 
figure 12-26. 
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IF 


X 


= Y 


THEN 
ELSE 


do; 

• 
• 
• 

end; 
do; 

• 
• 
• 

end; 



: :; ei|ilgitiSwM 

Kitiinlwjn* ;-. '.v to iinprrdii'ifihle n'Mi'ls 

Examples of indexed DO operations are shown in 
figure 12-28. 



Figure 12-26. Noniterative DO Operations 

DO WHILE 

A DO WHILE is executed repetitively. The WHILE expres- 
sion controls the number of times the group is executed. 

When the DO statement is executed, the WHILE expression 
is evaluated and converted to a bit string. Comparison 
operators yield 'l'B or 'O'B for true and false, respectively. 
If the string contains any one-bits ('l'B), control passes to 
the statement following the DO statement. If the string 
does not contain any one-bits ('l'B), control passes to the 
statement following the END statement of the do group. 

Each time control reaches the END statement of the group, 
the WHILE expression is again evaluated, converted, and 
tested to determine the next point of control. 

Control must not be transferred by a statement outside a 
DO WHILE to a statement or block contained in the group. 

Examples of DO WHILE operations are shown in 
figure 12-27. 



x = 5: 



DO WHIL£-<X>0*; 



X - X-13 

end; 



Figure 12-27. DO WHILE Operations 

Indexed DO 

An indexed DO is executed repetitively. The list of do- 
specifications determines the number of times the group is 
executed. 

When the DO statement is executed, each do-specification 
causes the index to be set to an initial value for the first 
execution of the do group under control of that do- 
specification, and incremented for each succeeding execu- 
tion of the group. Do-specifications are interpreted in left- 
to-right order. When the last execution of the do group is 
completed, control is transferred to the statement following 
the END statement of the group. 

Control must not be transferred by a statement outside an 
indexed DO to a statement or block contained in the group. 

If the index is a controlled or based variable, it must not be 
allocated or freed while the do group is active. If the index 
is a based variable, the value of its locator must not be 



DO I = 

• 


i to j; 




• 

end; 






do I = 

• 


2 TO 10. 12 TO 


J BY 2 WHIt E(A>100)* 


■ 

end; 






DECLARE 
DO D(S) 

• 


D<5) FIXED; 
= J WHILE<K<= 


L); 


• 

end; 






DO I = 

• 


A. B, c/j*i; 




• 
• 

end; 






DECLARE 
DO I = 


I CHAR < 10); 
♦ABC+» 1 TO 5. 


♦last*; 


• 

end; 






DECLARE 
DO L = 

• 


L LABEL* 
LABEL4.LABEL2, 


LABEL 3* 


• ... 
• 

END* 




. 



Figure 12-28. Indexed DO Operations 



Do-Specification Processing 

Each do-specifieation is processed through the following 
steps: 

1. The start-expression, TO expression, and BY expression 
are evaluated. These expressions are not reevaluated 
while under control of this execution of the DO 
statement. If TO is specified and BY is not specified, 
BY 1 is assumed. 

2. The value of the start-expression is assigned to the 
index. The values of the TO expression and the BY 
expression are preserved for use in tests during inter- 
pretation of the do-specification. 

3. The do-specification is interpreted to determine 
whether or not the do group should be executed. 
Interpretation is performed through TO and WHILE 
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testing as described in a later paragraph. If the do 
group is to be executed, control is transferred to the 
statement following the DO statement. If the do group 
is not to be executed, control is transferred to the next 
do-specification or, if this is the last do-specification, 
to the statement following the group END statement. 

Each time control reaches the END statement, the do- 
specification is interpreted to determine whether the index 
should be incremented and whether the group should be 
executed again under control of this do-specification. 

The value of the do-specification is always assigned to the 
index before the TO and WHILE tests are performed. 

TO and WHILE Testing 

Two basic tests are used in the interpretation of a do- 
specification: TO-test and WHILE-test. The TO-test deter- 
mines whether the value of the index is beyond the limit 
specified by the TO expression. The WHILE-test determines 
the value of the WHILE expression. 

The TO-test is performed as follows: 

• If the value of the index is greater than the value of the 
TO expression and the value of the BY expression is 
positive or zero, control under this do-specification is 
terminated. 



• If the value of the index is less than the value of the TO 
expression and the value of the BY expression is 
negative, control under this do-specification is 
terminated. 

• If neither of the above cases applies, control under this 
do-specification continues. 

The WHILE-test is performed as follows: 

• The WHILE expression is evaluated and converted to a 
bit string. Comparison operators yield 'l'B and 'O'B for 
true and false, respectively. 

• If the string contains any one-bits ('l'B), control under 
this do-specification continues. 

• If the string does not contain any one-bits ('l'B), control 
under this do-specification is terminated. 



Do-Specification Options 

Eight combinations of options can appear in a do-specifiea- 
tion and cause six different actions to take place. These 
options and the resulting actions are summarized in 
table 12-6. 



TABLE 12-6. DO-SPECIFICATION OPTIONS 



DO index = 


Initial Action 


END Statement Action 


start-expression 


Control unconditionally passes to the 


Control under this specification is 




statement following the DO statement. 


terminated. 


start-expression WHILE(expression) 


The WHILE-test is performed. If the test 


Control under this specification is 




does not terminate control under this do- 


terminated. 




specification, control passes to the state- 






ment following the DO statement. 




start-expression BY expression 


Control unconditionally passes to the 


The index is incremented by the value 




statement following the DO statement. 


of the BY expression. Control passes 
to the statement following the DO 
statement. This form of the do- 
specification does not provide a test 
to terminate execution under its 
control. 


start-expression BY expression 


The WHILE-test is performed. If the test 


The index is incremented by the value 


WHILE(expression) 


does not terminate the do-specification, 


of the BY expression. The WHILE-test 




control passes to the statement following 


is performed. If the test does not ter- 




the DO statement. 


minate the do-specification, control 
passes to the statement following the 
DO statement. 


start-expression TO expression 


The TO-test is performed. If the test 


The index is incremented by the value 


BY expression 


does not terminate the do-specification, 


of the BY expression. (If the BY op- 




control passes to the statement following 


tion is not included, BY 1 is assumed 


start-expression TO expression 


the DO statement. 


by default.) The TO-test is performed. 
If the test does not terminate the do- 
specification, control passes to the 
statement following the DO statement. 


start-expression TO expression 


The TO-test is performed. If the test 


The index is incremented by the value 


BY expression WHILE(expression) 


does not terminate the do-specification, 


of the BY expression. (If the BY op- 




the WHILE-test is performed. If this 


tion is not included, BY 1 is assumed 


start-expression TO expression 


test does not terminate the do- 


by default.) The TO-test is performed. 


W HIL E(expression) 


specification, control passes to the 


If the test does not terminate the do- 




statement following the DO statement. 


specification, the WHILE-test is per- 
formed. If this test does not terminate 
the do-specification, control passes to 
the statement following the DO 
statement. 
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END STATEMENT 

The END statement denotes the end of a procedure block, 
begin block, or do group. The syntax of the END statement 
is shown in figure 12-29. 



[label:]. . . END [closure-name] ; 



Figure 12-29. END Statement Syntax 

The following rules apply: 

• The statement cannot have a condition prefix. 

• The closure-name must match a preceding BEGIN or DO 
statement label prefix or a preceding PROCEDURE 
statement entry prefix. 

• The closure-name cannot be subscripted. 

Execution of an END statement that denotes the end of a 
begin block terminates the current block activation. The 
dynamic predecessor of the current block activation be- 
comes the current block activation. Control passes to the 
statement following the END statement. 

Execution of an END statement that denotes the end of an 
on-unit begin block terminates the on-unit activation; this is 
illegal for some conditions. Refer to section 10, Conditions, 
for additional information. 



p: 


PPOCJ 

• 
• 
* 

R: BEr,lNJ 

■ • 






• 

DO I = 

• 


1 TO J? 




• 
• 

eno* 
ENn r«: 
fnii p» 


/•END OF 00 GROUP*/ 
/*END OF BEGIN BL0rK«/ 
/'END OF PPOCEOUPE BLOCK'/ 


p: 


"RlCS 

• ■ 

• 

• 

r: begin? 

• 






• 

00 1 = 

• 


1 TO J* 




• 
• 

end p» 


/•MULTIPLE CLOSURE*/ 



Figure 12-30. Sample END Statements 



Execution of an END statement that denotes the end of a do 
group causes tests to be made to determine whether or not 
the group is to be executed again. The decision is dependent 
upon the form of the DO statement that heads the group. 

Execution of an END statement that denotes the end of a 
procedure block terminates the current block activation. 
This produces the same effect as the execution of a 
RETURN statement with no return value. Execution of the 
END statement is illegal if the procedure was invoked as a 
function. If the current block activation is the first or only 
activation of the main procedure, execution of the END 
statement terminates program execution. 

If an END statement denotes multiple closure, the state- 
ment is equivalent to several END statements, one for each 
block or group it closes. If the END statement has a label 
prefix, the label applies to the END statement of the 
outermost block or group closed; that is, it applies to the 
block or group referenced by the closure-name. 

Refer to section 2, Dynamic Program Structure, for addi- 
tional details regarding block and program termination. 

Examples of END statements are shown in figure 12-30. 



ENTRY STATEMENT 

The ENTRY statement denotes a secondary entry point of 
the procedure block that immediately contains the ENTRY 
statement. It can specify parameters for the entry point 
and the attributes of the value to be returned by the 
procedure when invoked at this entry point by a function 
reference. The syntax of the ENTRY statement is shown in 
figure 12-31. 



jentry-name:} . . . ENTRY [(parameter, , ,)] 
[RETURNS [(returns-descriptor)]] ; 



Figure 12-31. ENTRY Statement Syntax 
The following rules apply: 

• The statement cannot have a condition prefix. 

• The block that immediately contains an ENTRY state- 
ment must be a procedure block; an ENTRY statement 
cannot be contained in a begin block, a DO WHILE, an 
indexed DO, or an on-unit. The statement can be 
contained in a noniterative DO. 

• At least one entry-name must be included. The entry- 
name must not be subscripted. 

• A variable cannot appear more than once in the same 
parameter list. 

• Each parameter can be a scalar, an array, or a 
structure; it cannot be an array element, an array slice, 
or a structure member. 

• Data types of corresponding arguments and parameters 
must be compatible. The number of parameters must 
equal the number of arguments passed when the entry 
point is invoked. 

• If the procedure is invoked by CALL statement execu- 
tion, the RETURNS option must not be included; if the 
procedure is invoked by function reference, the 
RETURNS option must be included. 
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RETURNS( ) is illegal. 

Each extent (string length or area size) appearing in a 
returns-descriptor must be an expression consisting only 
of literal constants and the operators + - * / and II. 
Array bounds cannot appear in a returns-descriptor. 



Entry-Name 

Each entry-name of an internal procedure is explicitly 
declared by the compiler as an internal entry constant in the 
block that immediately contains the procedure. An internal 
entry-name cannot be declared by DECLARE statement. 
The entry-name is known in the block that immediately 
contains the procedure and in all blocks contained in that 
block. Refer to the PROCEDURE statement for additional 
details regarding the scope of internal entry-names. 

Each entry-name of an external procedure is explicitly 
declared by the compiler as an external entry constant 
outside of any block. Unless there is an overriding 
declaration, the entry-name is known in the external 
procedure and in all blocks contained in that external 
procedure. 

A reference to an external entry constant from a point 
outside the external procedure that contains the ENTRY 
statement requires a DECLARE statement declaration as 
described under the ENTRY attribute in section 4, 
Attributes. 

Each external name that U longer than seven characters Ss 
mftdifmd before external references are resolved by the 
loader. Only the first four and last three characters of the 
original identifier are used. Care should be taken to avoid 

aeeloentftl duplication of wstertuRl names that are modified 
according to this convention. External name* stojio a<n 
irajiucie any of the characters $ § 4 and , -, evtwsal names 
containing these characters might conflict with names used 
by the system. 

An entry-name on an ENTRY statement can be referenced 
in a CALL statement or function reference that invokes the 
procedure, and in an argument list. It cannot be referenced 
in any other «wt<3l. 

An ENTRY statement with multiple entry-names creates 
one entry point that can be referenced by any of its names. 
For example: 

E: X: ENTRY(PARl) RETURNS(FIXED BIN); 

All entry-names of a single ENTRY statement are equi- 
valent with the following exception: 

If INRULE processing is specified on the PLI control 
statement when the procedure is compiled, the first 
character of an entry-name can determine the default 
attributes supplied for a returns-descriptor; therefore, a 

single entry point with multiple names can have two 

.... ...... . ,. .,....._.......,... .... 

Two consecutive ENTRY statements (even with no inter- 
vening executable statements) create two separate entry 
points. The entry points can have different parameters and 
RETURNS options. For example: 

E: ENTRY(PARl) RETURNS(FIXED BIN); 
X: ENTRY(PAR2) RETURNSKFLOAT); 



Parameters and Arguments 

Each parameter in an ENTRY statement is a variable with 
which an argument will be associated when the procedure is 
invoked at that entry point. The appearance of a variable in 
the parameter list constitutes an explicit declaration of the 
variable as a parameter in that procedure. The variable can 
also be declared by a DECLARE statement immediately 
contained in the same procedure block. 

A parameter can be declared with any consistent set of the 
following attributes: ALIGNED, AREA, BINARY, BIT, 
CHARACTER, DECIMAL, dimension, ENTRY, FILE, FIXED, 
FLOAT, INTERNAL, LABEL, LIKE, OFFSET, PICTURE, 
POINTER, precision, REAL, RETURNS, structure, 
UNALIGNED, and VARYING. FORMAT is aoi permitted. 

Arguments passed to the procedure are associated with 
corresponding parameters of the entry point. The first 
argument is passed to the first parameter, the second 
argument to the second parameter, and so on. The various 
entry points of a procedure can have identical or different 
parameters. When a procedure is invoked, only those 
parameters associated with the invoked entry point should 
be referenced during that activation. Refer to section 6, 
References, for additional information. 



Procedure Invocation 

An entry point with the RETURNS option is a function 
entry; one without the RETURNS option is a subroutine 
entry. A procedure can have both function and subroutine 
entries. 

A procedure invoked as a function must be invoked at a 
function entry by a function reference. The procedure 
activation must be terminated by a RETURN statement with 
a return-value, a STOP statement, or a GOTO statement. 

A procedure invoked as a subroutine must be invoked at a 
subroutine entry by a CALL statement. The procedure 
activation must be terminated by a RETURN statement With 
no return-value, an END statement, a STOP statement, or a 
GOTO statement. 



Returns-Descriptor 

The returns-descriptor is a list of attributes. It specifies the 
attributes of the value that is to be returned to the point of 
invocation by a RETURN statement with a return-value. 
When the RETURN statement is executed, the value of the 
expression is converted to the data type specified by the 
returns-descriptor of the entry point through which the 
procedure was activated. ITic re urned value nus be a 
scalar value. 



The returns-descriptor can include any consistent set of the 
following attributes: ALIGNED, AREA, BINARY, BIT, 
CHARACTER, DECIMAL, FIXED, FLOAT, OFFSET, 
PICTURE, POINTER, precision, REAL, UNALIGNED, and 
VARYING. Dimension, ENTRY, FILE, FORMAT, LABEL, 
mem k iti i "■'. ir . at e not | e: i littc .. 

If INRULE processing is specified on the PLI control 
statement when the procedure is compiled, the default 
attributes for RETURNS with no explicit returns-descriptor 
depend upon the initial character of the entry-name. If the 
character is one of the letters I through N, RETURNS is 
equivalent to RETURNS(F1XED BINARY(15,0)); otherwise, 
RETURNS is equivalent to RETURNS(FLOAT DECIMALU4)). 
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If standard arithmetic defaults are used when the procedure 
is compiled, RETURNS with no parentheses or returns- 
descriptor is equivalent to RETURNS(REAL FIXED 
BINARY(15,0)). 

Statement Processing 

When control is transferred to the entry point, the procedure 
that immediately contains the entry point is activated. 
Each argument passed to the procedure is associated with 
the corresponding parameter of the entry point. A genera- 
tion of storage is allocated for each automatic variable 
declared in the procedure; if the variable has the INITIAL 
attribute, it is assigned an initial value. Each defined 
variable declared in the procedure is associated with a 
generation of storage. Control then passes to the statement 
following the ENTRY statement. 

An ENTRY statement has no effect when it is encountered 
in the sequential flow of control; control passes to the 
statement following the ENTRY statement. 

A procedure is recursive if its PROCEDURE statement has 
the RECURSIVE option. A recursive procedure can be 
invoked at any of its entry points while it is already active. 
Recursive invocations of a procedure can be made at the 
same entry point or at different entry points. 

Examples of ENTRY statements are shown in figure 12-32. 



p: 


PROCI 

• ■ ■■ 




E* 


• 

ENTRY <PM1*PM2,PM3> RETURNS CCHaR< 10) > 1 


ENO 


• ■ 

ft 




E is a function entry point. It has three 
and, therefore, requires three arguments, 
of an invocation of E is a character string 


parameters 
The result 
value. 


Q: 


PROC(H) J 

• 




G: 


• 
• 

ENTRY(A,9M 

• 




enp 


• . . . .' 

■a: 




G is 
and. 


a subroutine entry point. It has two 
therefore, requires two arguments. 


parameters 



Figure 12-32. Sample ENTRY Statements 



Conditions 

The STORAGE condition is raised during block activation if 
storage cannot be obtained for generations of storage 
associated with the block activation. If the STORAGE on- 
unit frees sufficient space, the allocation is made and 
execution continues normally. If the on-unit does not free 
sufficient space, the ERROR condition is raised. 

Computational conditions can be raised during evaluation of 
extent expressions for parameters and for automatic and 
defined variables. 



FORMAT STATEMENT 

The FORMAT statement is used during edit-directed I/O to 
control the format of the data being transmitted. The 
statement is designated for use during a GET or PUT 
statement execution when the format-name is referenced by 
a remote format item R. The syntax of the FORMAT 
statement is shown in figure 12-33. 



[condition-prefix] . . . {format-name:} . . . 
FORMAT(format-specification, , ,) ; 

where format-specification is 



'/integer 
((expression) 



[integer I 

(expression)] 



(format-specification, , ,) 

A [(width)] 
B [(width)] 
gLUMNj [(ne¥M0 , umn)] 

E (width,fd [,sd] ) 
F (width [,fd [,scale]] ) 
LINE [(new-line)] 
P 'picture-specification' 
PAGE 

R(remote-format) 

SKIP [(line-count)] 

X [(space-count)] 



where new-column, new-line, line-count, 
and space-count are expressions. 



Figure 12-33. FORMAT Statement Syntax 
The following rules apply: 

• At least one format-name must be included; the 
format-name must not be subscripted. 

• Every expression must yield a scalar computational 
(arithmetic, string, or pictured) value. 

• Tho r'OKMAT statement must b*; immediately con- 
tained in the same block as the GET or PUT statement 
being executed. 

• When a character or a bit format item (A or B) is used 
during GET statement execution, the item must have 
width specified. 

• A GET or PUT statement with a STRING option cannot 
use a LINE, SKIP, COLUMN, or PAGE format item. 

• A PAGE or LINE format item can only be used for a 
PUT statement that references a print file. 
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Each format-name is explicitly declared by the compiler as 
a format constant in the block that immediately contains 
the FORMAT statement. 



A FORMAT statement is bypassed in the normal sequential 
flow of the program. The statement is executed only when 
the format-name is referenced by a remote format item 
during execution of a GET or PUT statement. Control 
cannot be transferred to a FORMAT statement by a GOTO 
statement. 



When control passes to a FORMAT statement during edit- 
directed I/O, execution of the format-specification list 
begins with the leftmost format item as described under 
Edit-Directed I/O in section 8, Input/Output. 

The integer or expression that precedes the list of format 
items is an iteration factor, which is the number of times a 
format item or an entire parenthesized list of items is to be 
used in succession. When an iteration factor is included, it 
is converted to integer; its value must be positive or zero. 
If the iteration factor is zero, the format item or parenthe- 
sized list of items is ignored. 

Examples of FORMAT statements are shown in figure 12-34. 



FMi: F0«MAT(SKlP<l)»F<5»2)» COL <?0> . A (8) ) I 

FM2: FORMAT (PAGE* 2 Ad?)) I 

FM3! F0»MAT(3(2(B(3) ,X(2) ) »E<120> > ,R(FM2) ) I 



Figure 12-34. Sample FORMAT Statements 



The based-variable can be a scalar, an array, or a 
structure; it cannot be an array element or a structure 
member. The variable must be explicitly declared with 
the BASED attribute. 

The locator-reference must be a scalar locator (pointer 
or offset) variable or function. If it is a variable, it can 
be a scalar, an array element, or a structure member; it 
cannot be an array. 



The area variable specified by the IN option must be 
scalar. The area must have a generation of storage. 



Freeing a Controlled Variable 

When a controlled variable is freed, the most recently 
allocated generation is removed from the stack of genera- 
tions currently associated with the variable. The dynamic 
predecessor becomes the top generation in the stack. If the 
controlled variable has no generations associated with it, the 
freeing is ignored. 



Freeing a Based Variable 

When a based variable is freed, the allocated generation 
identified by a locator value as released. The locator value 
can be specified either by an explicit locator-reference or 
by an assumed locator. The based variable used to free the 
generation must have the same attributes as the one used to 
allocate it as described under Based Storage in section 3, 
Data Elements. 

It is an error if there is no allocated generation. The 
allocated generation must have been allocated for a based 
variable. 



FREE STATEMENT 

The FREE statement frees a generation of storage belonging 
to a controlled or based variable. Only generations 
allocated by an ALLOCATE statement can be freed by a 
FREE statement. Once a generation is freed, the storage 
previously occupied by the generation is immediately avail- 
able for other uses. Freeing an area implicitly frees all 
based generations allocated within the area. The syntax of 
the FREE statement is shown in figure 12-35, 



[prefix] . . . FREE 

(control I ed-variable 

'[locator-reference->] based-variable [IN(area)]) ,„ 



Figure 12-35. FREE Statement Syntax 



The following rules apply: 

• A condition prefix applies to execution of the state- 
ment, including the evaluation of dimension or other 
attributes of a variable being freed. 

• The controlled-variable can be a scalar, an array, or a 
structure; it cannot be an array element or a structure 
member. The variable must be explicitly declared with 
the CONTROLLED attribute. It can have either the 
INTERNAL or EXTERNAL attribute. 



Locator-Reference 

The based reference can be locator-qualified. The locator- 
reference specifies the locator (pointer or offset) value that 
identifies the generation to be freed. If the locator 
specified by the locator-reference is an offset value, the 
freeing is performed within an area. 

If a based variable is freed without a locator-reference, an 
assumed locator is constructed from the declaration of the 
based variable. 

Locator-reference processing is summarized in table 12-7. 



TABLE 12-7. LOCATOR-REFERENCE PROCESSING 



Based Variable 
Declaration 


Locator-Reference 
Specified 


Locator-Reference 
Not Specified 


BASED(locator- 
variable) 

BASEDdocator- 
valued-function) 

BASED 


Specified locator- 
reference is used; 
declared locator 
is ignored. 

Specified locator- 
reference is used; 
declared locator 
is ignored. 

Specified locator- 
reference is used. 


Declared locator 
is used. 

Declared locator 
is used. 

Illegal 
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IN Option 



TABLE 12-9. FREE STATEMENT PROCESSING 



The IN option specifies the area that contains the generation 
of storage to be freed. 

If the specified locator-reference or the assumed locator is 
an offset value, the freeing is performed within an area. 

If the specified locator-reference or the assumed locator is 
an offset value and the based variable is freed without an IN 
option, an assumed IN option is constructed from the 
declaration of the offset variable; in this case the declara- 
tion must contain OFFSET(area), where area is a scalar area 
variable that has a generation of storage. The based 
generation must be immediately contained in the specified 
area. 

If the specified locator-reference or the assumed locator is 
a pointer value, the freeing is performed within an area only 
if the allocation contains an explicit IN option. 

IN option processing is summarized in table 12-8. 
TABLE 12-8. IN OPTION PROCESSING 



Locator-Variable 
Declaration 


IN Option 
Specified 


IN Option 
Not Specified 


OFFSET(area- 
variable) 

OFFSET 
POINTER 


IN option area gen- 
eration is used. 

IN option area gen- 
eration is used. 

IN option area gen- 
eration is used. 


Declared area 
variable is used. 

Illegal. 

The based vari- 
able is freed; the 
generation being 
freed must not 
be contained in 
an area. 



Statement Processing 

Execution of the FREE statement causes a generation of 
storage to be freed for each named variable. The variables 
to be freed are processed in left-to-right order, and each 
variable is processed through the steps listed in table 12-9. 

Examples of FREE statements are shown in figure 12-36. 

GET STATEMENT 

The GET statement is a stream I/O statement that performs 
the following operations: 

The statement can derive values from a continuous 
stream of characters, called the source stream, located 
in PL/I storage or on a CRM file and assign those values 
to one or more target variables. 

The statement can position a stream input file forward 
before transmitting data, between data transmissions, 
or without transmitting data. 

The statement can copy the input data without alter- 
ation to a stream output file. 

The syntax of the GET statement is shown in figure 12-37. 



Step 



1. 



Performed For 



A controlled 
variable. 



A based variable. 



A based variable 
with a specified or 
assumed IN option. 



Action Taken 



4. 



A based variable 
with no specified 
or assumed IN 
option. 



The latest generation of the 
controlled variable, which is 
at the top of the stack, is 
freed. The dynamic prede- 
cessor becomes the top gen- 
eration in the stack. If the 
variable has no generations 
of storage, no action is 
taken. 

The size of the generation to 
be freed is determined from 
attributes (aggregate type, 
data types, and alignment) in 
the declaration of the based 
variable. Extents of arrays, 
strings, and areas are evalu- 
ated at this time. The size 
of the generation must be 
identical to that used when 
the variable was originally 
allocated. 

The based generation is lo- 
cated and freed. The gen- 
eration must be immediately 
contained in the specified 
area generation. The area 
variable must have a gener- 
ation of storage associated 
with it. If this is the only 
generation contained in the 
area, the area is set to 
EMPTY( ). 

The based generation is lo- 
cated and freed. The 
generation must not be 
contained in an area 
generation. 



FREE At8; 

CRFF P~>R IN<X)t 



DCL A AREAH000) BASED(P)I 
DCL B AREAO00) BASEO(Q)? 
ALLOCATE A. 3 IN<A>; 
ERE* 7 a; /« FREES BOTH A AND B 



DCL A(5) AREAO00); 
DCL BUO) CHAR(?0) BASED; 
DCl 0FF3 0FFSET(A<3)> i 
ALLOC B TN(A<3>> SET(0FF3)« 
FREE OFF3->n IN A<3>)5 



*/ 



Figure 12-36. Sample FREE Statements 
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File Positioning 

[prefix]... GET [COPY [(file-reference)]] [FILE(file-reference)] SKIP [(line-count)] 
Stream In put 



[prefix]. . . GET [ COPY [(file-reference)]] 



FILE(file-reference)] [SKIP [(line-count)]] 



STR I IMG (input-source) 



LIST(input-target , , ,) 



EDIT | (input-target , , ,) (format-specification ,,,)]. . 



where input-target is 

! target-variable 
pseudovariable 
(input-target , , , embedded-do) J 



where embedded-do is 

DO index = j start-expression Hi 10 expression ||] 
| yiBY expression IIJ 

where format-specification is 

{(expression)} (^mat-specificatiorr , , ,) 



[WHILE (expression)] ' 



[integer 
(expression)! 



A (width) 

B (width) 

(COLUMN) , r , 

ICOL ( (new-column)] 

E (width.fd [,sd] ) 
F (width [,fd [,scale]] ) 
P 'picture-specification' 
R(remote-format) 
SKIP [(line-count)] 
\ X [(space-count)] 



where new-column, line-count, new-line, and space-count are expressions. 



Figure 12-37. GET Statement Syntax 
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The following rules apply: 

• The options COPY, FILE, STRING, SKIP, LIST, and 
EDIT can appear in any order. The order of option 
keywords has no significance; the order of items within 
an option is significant. 

• The file-reference specified in the COPY option must 
be a file constant or a file variable. 



I* 



The file-reference specified in the FILE option must be 
a file constant or a file variable. 

The STRING option input-source can be an 
expression. It must be scalar and computational. 

The SKIP option line-count can be an expression. It 
must be scalar and computational. 

Each target-variable must be ■ ■ ar computational 
variable. 



LIST and EDIT Options 

The LIST or EDIT option specifies the mode of stream input 
transmission. Each LIST or EDIT option contains a list of 
input-targets to which values are to be assigned. Each EDIT 
option includes format instructions for deriving source 
values from the source stream. A GET statement can 
contain one LIST option or one EDIT option, but not both. 

The source stream for list-directed input is interpreted as a 
list of source values. The source stream for edit-directed 
input is interpreted according to the format-specification 
list and any FORMAT statements referenced by that list. 

Input-targets are processed from left to right. If the EDIT 
option contains multiple input-target lists, the lists are 
processed from left to right until values have been assigned 
to all input-targets; control then passes to the next 
statement. 

Each input-target specifies one or more scalar items to 
which a value is assigned. A target-variable can be an array 
element, but not an unsubscripted array name. It cannot 
i any asterisk subscripts. It can be a structure member, 




An input-target list can specify iteration by means of an 
embedded-do. The following rules apply: 

• Parentheses enclose one or more variables and the 
embedded-do. 

• Each level of embedded-do requires its' own set of 
parentheses. 

• The LIST or EDIT option has its own required paren- 
theses, which are distinct from any parentheses re- 
quired for the embedded-do. 

• No comma appears between the last (or only) input- 
target in the list and the embedded-do. 

Detailed information concerning list-directed input and edit- 
directed input is included in section 8, Input/Output. 

FILE and STRING Options 

The FILE or STRING option specifies the location of the 
source stream. The source stream can be located on a CRM 
file (FILE option) or can be a PL/I generation (STRING 
option). 



A GET statement can contain one FILE option or one 
STRING option, but not both. If the GET statement 
contains neither a FILE option nor a STRING option, . 
FILE(SYSIN) is assumed. § 



FILE Option 

The FILE option specifies that the source stream is located 
on a file. If the referenced file is open, it must be a 
STREAM INPUT file. If the file is not open, an attempt 
will be made to open it implicitly with the attributes 
STREAM and INPUT. 



STRING Option 

The STRING option specifies that the input-source | 
represents the source stream. The expression is evaluated 
and converted to character before data transmission 
begins. The evaluated and converted expression becomes 
the source stream. Each time the GET statement is 
executed, the initial position of the stream is the first 
character of the evaluated result. If the expression is 
simply a variable reference, it must not reference the 
same generation of storage as any input-target. 



SKIP Option 

The SKIP option specifies that the CRM file is to be 
positioned forward by some number of lines before data 
transmission begins, or is to be simply positioned forward 
with no subsequent data transmission. Skipping is performed 
before data transmission, even if the SKIP option appears to 
the right of the LIST or EDIT option. 

The expression is evaluated and converted to a fixed binary 
integer; its value must be greater than zero. If the SKIP 
option does not include an expression to indicate the actual 
number of lines, SKIP(l) is assumed. The initial position of a 
file immediately after it is opened is the first character of 
the first line. 



Skipped data is copied if the COPY option is included. 



COPy Option 

The COPY option specifies that all source data skipped or 
transmitted is also to be copied to an output file. If the 
referenced file is open, it must be a STREAM OUTPUT or a 
STREAM OUTPUT PRINT file. If the file is not open, an 
attempt will be made to open it implicitly with the 
attributes STREAM and OUTPUT. 



If the COPY option does not include a file-reference, 
COPY(SYSPRINT) is assumed. | 



Statement Processing 

Execution of the GET statement is performed in the order 
shown in table 12-10. This information is important for the 
following reasons: 

• If a condition is raised during execution of the GET 
statement, not all of the operations will have been 
performed. 
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• If an on-unit does not return to the point at which the 
condition was raised, not all of the operations will have 
been performed. 

• If any option contains a function reference, the effect 
of the GET statement can depend on the order in which 
operations are performed. 

Examples of GET statements are shown in figure 12-38. 
TABLE 12-10. GET STATEMENT PROCESSING 



Step 


GET Statement 
Option 


Action 


1. 

2. 
3. 

4. 
5. 

6. 


STRING 

SKIP 

FILE or assumed 
file option 

COPY 
SKIP 

LIST or EDIT 


The expression is evaluated and 
converted to CHARACTER(n) 
nonvarying, where n is the 
number of characters in the 
evaluated string. 

The expression is evaluated and 
converted to a fixed binary 
integer. 

If the file is not open, it is 
opened implicitly with attri- 
butes STREAM and INPUT. 

If the file is not open, it is 
opened implicitly with attri- 
butes STREAM and OUTPUT. 

The source stream is moved for- 
ward the number of lines speci- 
fied and positioned at column 1. 
The bypassed data is copied to 
the copy-file if the COPY op- 
tion is included. 

Data is transmitted as described 
in section 8, Input/Output. When 
values have been assigned to all 
input-targets, the operation is 
complete and control passes to 
the next statement. 



Conditions 

Conditions that can be raised during GET statement execu- 
tion include: UNDEFINEDFILE, ENDFILE, ENDPAGE, 
ERROR, and TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 

The ENDFILE condition is raised when end-of-file is 
reached while processing the SKIP option or an input- 
target. If control returns from the ENDFILE on-unit, 
execution continues with the statement following the 
GET statement. 

The ENDPAGE condition is raised only for a print 
output file referenced by the COPY option when the 
GET statement causes page size to be exceeded. If 
control returns from the ENDPAGE on-unit, statement 
processing continues. 

The ERROR condition is raised when the string speci- 
fied by the STRING option does not contain enough 
characters to satisfy all the input-targets. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the GET statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 



GOTO STATEMENT 

The GOTO statement transfers control to the statement 
identified by label-reference. If the label-reference is a 
label variable, the GOTO statement can transfer control to 
a different statement each time it is executed. The syntax 
of the GOTO statement is shown in figure 12-39. 

The following rules apply: 

• The label-reference must be„ a latel constant or a label 
variable. 



GET LIST(A,B)5 

The statement specifies list-directed input of two values from the CRM file (normally INPUT) associated with the file SYSIN. 
The values are to be assigned to the variables A and B. 

GET FILEUNFILE) SKIP EOIT(P.QtR) <3<F (6,2) «X<4) > > I 

The statement specifies edit-directed input from the CRM file associated with INFILE. The values are assigned to P,Q,and R. 
The total number of characters read from INFILE is 26, The X format item is not executed after the last input-target is executed. 

GET STRIMG<S) COPY EDIT <SUBSTR<x.3) «Y) (A(10)t X<3> tP»AA999*> J 

The statement specifies edit-directed input from the character string value of S. Values are assigned to X, using the SUBSTR 
pseudovariable, and to Y. The length of S must be at least 18, the total length specified by the three format items. A copy 
of the first 1 8 characters of S is written on file SYSPR I NT. 

GET FILE<SYSIN) SKIP LIST(<A(I) DO 1*1 TO J)) J 

The statement specifies list-directed input of J values to be assigned to A{1), . . . ,A(J). Note the double parentheses. 



Figure 12-38. Sample GET Statements 
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The label-reference cannot identify an ENTRY, 
FORMAT, or PROCEDURE statement;, the prefixes of 
these statements are not label constants. 

The block activation that contains the statement 
identified by label-reference must be active when the 
GOTO statement is executed; that is, control can only 
be transferred to a statement in the current block 
activation or in a dynamic predecessor of the current 
block activation. 

The statement must not be used to transfer control into 
a DO WHILE or an indexed DO from outside the 
do group. 



[prefix] . 



I GOTO i 

(goto; 



label-reference 



Figure 12-39. GOTO Statement Syntax 

The label value of the label-reference identifies not only a 
statement, but a particular activation of the block that 
contains the statement. 

If the label value designates a statement in the current 
block activation, control is transferred to the statement it 
identifies. This process is called a local GOTO. 

If the label value designates a statement contained in a 
dynamic predecessor of the current block activation, the 
current block activation is terminated abnormally as are all 
of its predecessors up to, but not including, the activation 
containing the referenced statement. Control is then 
transferred to the designated statement in that block 
activation. It could be another activation of the block 
containing the GOTO statement. This process is called a 
nonlocal GOTO. 

Examples of a local GOTO and nonlocal GOTO are 
illustrated in figure 12-40. The following points should be 
considered: 

• If a GOTO statement contained in a begin block 
transfers control to the BEGIN statement that heads 
the block, the transfer is a nonlocal GOTO. 

• If a GOTO statement in one block transfers control to a 
statement in a containing block, the transfer is a 
nonlocal GOTO. 

• A nonlocal GOTO with a label-reference that is a label 
variable can transfer control to a statement in any 
active block. 

• A nonlocal GOTO must not cause the termination of any 
block activation that has an immediate dynamic prede- 
cessor currently performing any of the following 
operations: 

Evaluation of extents of automatic or defined 
variables. 

Allocation of storage for automatic variables. 

Initialization of automatic variables. 

Execution of an ALLOCATE statement. 

Allocation of the based-variable in a LOCATE 
statement. 

Examples of GOTO statements are shown in figure 12-41. 



p. 




p: proc* 




A: BEGINI 






DCL LV LABEL 1 

• 




• 

GOTO A* 


« NonlocaKthe BEGIN 




• 


statement label is 




• 


immediately contained in 




• 


block P, not block A. 




x: ..♦♦? 






• 






• 






goto x; 


■* Local. 




LV*A? 






GOTO LV« 

• 


« Nonlocal. 




• 

goto c; 


« lllegal-GOTO is not 






within the scope of the 




declaration of C. 


B: PBOCI 

• 






• 

c 


BEGINI 

• 








• 

goto a» 


« Nonlocal. 


*- 





Figure 12-40. Local/Nonlocal GOTO 

IF STATEMENT 

The IF statement allows the flow of control to take one of 
two alternative paths, depending on the value of a specified 
expression. The syntax of the IF statement is shown in 
figure 12-42. 

The following rules apply: 

• A condition prefix applies only to the evaluation and 
conversion of the expression; the condition prefix does 
not apply to any statements in the executable-units. 

• The expression must be scalar and computational. 

• Statements in the executable-units can have prefixes. 

• If the ELSE clause is included, exeeutable-unit-1 cannot 
be an IF statement with no ELSE clause. 

When the IF statement is executed, the expression is 
evaluated, converted to a bit string, and tested. Comparison 
operators yield 'IT} if the comparison is true and 'O'B if the 
comparison is false. Testing proceeds as follows: 

If the string contains any one-bits Cl'B), control passes 
to executable-unit -1. 
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IF X<Y THEN GO TO LI 



Li » =7.-11 



P: PHOC(x); 

OCl. X fluEOt /'PARAMETER*/ 

OCl LV<3> LABEL INITIAL<L1»L2.£RR>* 

I = «TN(-X«3> J 



GOTO LV(I) t 



Ll: 



wetuhn* 



L2: 



RETURN* 
ERR: 



END P« 



Figure 12-41. Sample GOTO Statements 




[prefix] ... IF expression 
THEN executable-unit-1 
[ELSE executabie-unit-2] 

where each executable-unit is 

begin-block 

do-group 

ALlOCATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

DELETE-statement 

FREE-statement 

GET-statement 

GOTO-statement 

IF-statement 

LOCATE-statement 

null-statement 

ON-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

R EW R ITE-statement 

SIGNAL-statement 

STOP-statement 

WR ITE-statement 



If the string does not contain any one-bits ('llB) and the 
IF statement contains an ELSE clause, control passes to 
executable-unit-2. 

If the string does not contain any one-bits p-l*B) and the 
IF statement does not contain an ELSE clause, control 
passes to the statement following the IF statement. 

If control reaches the end of an executable-unit (that is, 
control is not transferred out of the executable-unit by a 
GOTO or RETURN statement), control passes to the 
statement following the IF statement. 

Examples of IF statements are shown in figure 12-43. 



IF 


A=8 
THEN 


IF P>»Q 
THEN 
ELSE 


CALL APROC* 
RETURN* 


The ELSE clause in the above statement is paired 
with the THEN clause of the inner 1 F statement. If 
it is intended for the outer IF statement, the state- 
ment must be balanced by using an ELSE clause with 
a null statement as its executable unit. For example: 


IF 


THEN 
ELSE 


IF P«»0 
THEN 
ELSE) 

RETURN* 


CALL APROC* 


IF 


A THEN GO TO 


THEEMO* 


IF 


A<8 
THEN 


IF C>0 

THEN 


IF X-«Y THEN RETnRN(X)* 


IF 


91s(B2wB3> 
THEN e: CALL 
ELSE Nt CALL 


EQ(BI)t 
NE01.B2.B3M 



Figure 12-43. Sample IF Statements 



LOCATE STATEMENT 

The LOCATE statement is a record I/O statement that 
allocates a based variable for use as an output buffer. The 
statement can also transmit a record to a CRM file. The 
syntax of the LOCATE statement is shown in figure 12-44. 



[prefix]. . . LOCATE based-variable 

F.LE(file-reference) \f^Z! - Jll ; 

|||KEYFROM(expression)||J ' 



Figure 12-42. IF Statement Syntax 



Figure 12-44. LOCATE Statement Syntax 



The following rules apply: 

• A condition prefix applies to execution of the state- 
ment, including the evaluation of dimension, INITIAL, 
or other attributes of the based variable being 
allocated. 
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• The based-variable must be unsubscripted and must not 
have the member attribute. 

• The FILE, SET, and KEYFROM options can appear in 
any order after the based-variable reference. 

• The file-reference must be a file constant or a file 
variable. 

• Either the SET option must be present, or the declara- 
tion of the based variable must have a BASED attribute 
with a locator variable. If the SET option is not 
specified, the declared locator variable is used as an 
assumed SET option. 

• The specified or assumed SET option must reference a 
scalar pointer variable. 

• The specified or assumed SET option must not reference 
an offset variable. 

• The KEYFROM option must be included for a file that 
has the KEYED attribute. 

• The KEYFROM expression must be scalar and 
computational. 

Execution of the LOCATE statement causes a record buffer 
to be allocated. The record buffer is subsequently trans- 
mitted as a record to the CRM file identified by file- 
reference. Transmission occurs when the next I/O state- 
ment for the file is executed or when the file is closed. The 
program can assign values to the based generation after 
buffer allocation and before transmission. 

Any open record output file can have one allocated buffer 
associated with it. Any subsequent I/O statement that can 
be executed for such a file (LOCATE, WRITE, or CLOSE) 
causes the allocated buffer to be written as a record and 
then freed. The pointer value that addresses the buffer is 
invalid after the buffer is freed by the system. 



Statement Processing 

The LOCATE statement is processed through the following 
steps in the order given: 

1. The specified or assumed SET option determines the 
pointer variable to be used. The value of the pointer 
variable is set to the start of the allocated buffer. If 
the KEYFROM option is present, its expression is 
evaluated and converted to a character string if 
necessary. This option specifies the key value that is 
used to identify the record when it is written. The 
value is maintained by the system until the allocated 
buffer is written by a subsequent I/O statement 
execution. 

2. If the file is open, it must have the attributes RECORD 
and OUTPUT. If the file is not open, an implicit file 
opening is executed. Implied attributes RECORD and 
OUTPUT are supplied for the file opening. 

3. If an allocated buffer created by a previous LOCATE 
statement exists, the buffer is written as a record to 
the CRM file. If the output file is direct, the key value 
specified in the KEYFROM option is associated with the 
record. If the output file is sequential, the record is 
written at the position immediately following the one 
indicated by the current-record designator. The 
current-record designator is changed to identify the 
new record. The buffer is then freed. 



4. The based variable is allocated and initialized normally 
as if by ALLOCATE statement execution. A pointer 
value is assigned to the pointer variable identified by 
the specified or assumed SET option. A nonlocal GOTO 
must not cause the termination of any block activation 
that has an immediate dynamic predecessor currently 
performing this operation. 

5. The newly allocated generation is established as an 
allocated buffer associated with the file. If the 
LOCATE statement has a KEYFROM option, the eval- 
uated key value is associated with the allocated buffer. 

Examples of LOCATE statements are shown in figure 12-45. 



DCL B(5.«5> BASErHP) CHARUOOM 



LOCATE B FILE<F)I 



P->fi(I.J) 



XI 



LOCATE H SET(Q> FILE(F) t 



Q->B(3»I) 



y; 



CLOSE FILE(F>» 

Two records are written to the CRM file associated with 
the file F. The first record contains the value assigned to 
it from X, and it is written during execution of the 
second LOCATE statement The second record contains 
the value of Y, and it is written during the execution of 
the CLOSE statement. Both P and Q are pointer variables. 



Figure 12-45. Sample LOCATE Statements 



Conditions 

Conditions that can be raised during LOCATE statement 
execution include: UNDEFINEDFILE, KEY, RECORD, and 
TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 

The KEY condition is raised during the buffer write 
operation when the key value duplicates an existing key 
in the CRM file. If control returns from the KEY on- 
unit, control passes to the next statement with 
LOCATE statement execution incomplete. 

The RECORD condition is raised during the buffer write 
operation when the record size is unacceptable for the 
CRM file. If control returns from the RECORD on- 
unit, the ERROR condition is raised. 
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The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the LOCATE statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 



NULL STATEMENT 

The null statement has no effect on the execution of the 
program. The statement is represented by a semicolon. The 
syntax of the null statement is shown in figure 12-46. 



[prefix] . . . ; 



Figure 12-46. Null Statement Syntax 



Execution of the null statement passes control to the next 
statement. A null statement is used principally in an IF or 
ON statement. An IF statement with the construction 
ELSE; can be used to balance a nested IF statement. An ON 
statement with the construction ON condition; establishes a 
null on-unit, which causes system action to be bypassed for a 
condition that cannot be disabled. 

Examples of null statements are shown in figure 12-47. 



[prefix] . . . ON ct ■ i [SNAP] 



where on-unit is 

begin-block 

ALLOCATE-statement 

assign ment-statement 

CALL-statement 

CLOSE-statement 

D E LET E-statement 

FREE-statement 

GET-statement 

GOTO-statement 

LOCATE-statement 

null-statement 

OPEN-statement 

PUT-statement 

R E AD-statement 

RETURN-statement 

REVERT-statement 

REVVR ITE-statement 

SIGNAL-statement 

STOP-statement 

WR ITE-statement 



on-unit 



( SYSTEM 



" 1 

EM; J 



Figure 12-48. ON Statement Syntax 



IF I=J 




THfN IF P<Q 




THEN GOTO OUT; 




ELSE* /*NULL 


ACTION^/ 


ELSE GOTO CONTINUE* 




ON SI7E; /'NULL 


ON-UNIT*/ 


START:; 





Figure 12-47. Sample Null Statements 



ON STATEMENT 

The ON statement establishes an on-unit for the named 
condition. The on-unit specifies the action to be taken when 
the named condition is raised. The syntax of the ON 
statement is shown in figure 12-48. 

The following rules apply: 

• A condition prefix applies to execution of the state- 
ment; it does not apply to the on-unit. A condition 
prefix on the first or only statement of the on-unit 
applies to the on-unit. 

• The condition must be one of the names listed in the 
table of conditions in section 10 (table 10-1). 

• The first or only statement of the on-unit cannot have a 
label prefix. 

The ON statement is executed when it is encountered during 
the normal sequential flow of control. This establishes the 
specified on-unit in the current block activation. The on- 
unit is not executed until the condition is subsequently 
raised and then only if the condition is enabled. 



The SNAP option specifies that diagnostic information is to 
be written to the system error file when the named 
condition is raised. This occurs immediately before the on- 
unit is activated, and then only if the condition is enabled. 

The SYSTEM option specifies that a system on-unit (stan- 
dard system action) for the named condition is to be 
established in the current block activation. A system on- 
unit is automatically in effect for each condition that has no 
programmed on-unit. 

When the ON statement is executed, the on-unit is placed at 
the top of the stack and becomes the current established on- 
unit for the condition. The on-unit established in a block 
activation for any condition remains in effect until a 
subsequent ON or REVERT statement for the same condition 
is executed in the same block activation or until the block 
activation is terminated. 



A null on-unit can be specified to bypass system action or to 
obtain only SNAP output. For example: 

ON RECORD(FILE6); 

Examples of ON statements are shown in figure 12-49. 



OPEN STATEMENT 

The OPEN statement opens each referenced file for sub- 
sequent I/O operations. Any I/O statement other than 
CLOSE can perform an implicit file opening and supply 
additional attributes for a file. The OPEN statement 
performs an explicit file opening and allows additional 
attributes and options to be specified for the file. The 
syntax of the OPEN statement is shown in figure 12-50. 
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ON 


endeilE(sysin) goto final; 


ON 


ENDFILE(INP) BEGIN; 

• 




• 

end; 


ON 


ENOFILE(INP) (SIZE)* BE6INJ 

• 




• 

eno; 


ON 


ENOFILE(INPUTF) CLOSE FILE (INpUTF) ; 


ON 


COMDITION(SEQERR) 

CALL ERRMONLOCOt ONCODEOt *SEQt)* 


ON 


CONVERSION begin; 

• 




• 
• 

onsourceo * ...8 

end; 



Figure 12-49. Sample ON Statements 



The following rules apply: 

• The options specified for a file (including the FILE 
option that names the file) can appear in any order. 

• Each file-reference must be a file constant or a file 
variable. 

• The TITLE option expression must be scalar and 
computational. 

• The PAGESIZE option can only be used for a STREAM 
OUTPUT PRINT file. 

• A LINESIZE or PAGESIZE expression must be scalar and 
computational. 

• Any specified file description options must be consis- 
tent with attributes declared for the file constant. 



TITLE Option 

The TITLE option specifies the name of the CRM file that is 
to be associated with the file being opened. The CRM file 
name, and not the PL/I file name, is the one known to 
CYBER Record Manager and to the operating system. The 
name can only contain letters A through Z and digits 
through 9, and the name must begin with a letter. If the 
option is not included, the name of the PL/I file constant is 
used. If the name is longer than seven characters, the local 
file name is formed by concatenating the first four and last 
three characters of the PL/I name. 



ENVIRONMENT Option 

The ENVIRONMENT option specifies CRM file processing 
options. Options represented by the ENVIRONMENT 
option expression augment the CYBER Record Manager 
file information table (FIT) for the file and override | 
values already established by DECLARE statement. All 
constant values must be decimal; that is, no B (bit) or W 
(word) suffixes are permitted. 

Some of the options permitted on the CYBER Record 
Manager FILE control statement can be included. Refer to 
Environment Processing and Defaults in section 9, CYBER 
Record Manager Interface, for additional details. 

ENVIRONMENT options remain in effect until the file is 
closed. A FILE control statement overrides 
ENVIRONMENT options, and ENVIRONMENT options 
override values specified with the ENVIRONMENT 
attribute in a DECLARE statement. Embedded blanks are 1 
allowed in the ENVIRONMENT expression. | 

Stream Input Option 

The LINESIZE option specifies the maximum number of I 
• hsrfl .u.i i ;ssr line of user data. It the option :-. not § 
included, system default is 80 characters. 



Stream Output Options 

The PRINT option indicates that the file can be used to 
write data formatted for printing. 

The LINESIZE option specifies the maximum number of 
characters per line of user data. If ll.c opium if not 
included, system default is 80 characters for STREAM 
OUTPUT and 136 characters for STREAM OUTPUT PRINT. 



[prefix] . . . OPEN 



, Fl LE(file-reference) 



TITLE(expression) 
(ENVIRONMENT* 

(ENV ' 



i (expression) 



[STREAM] 



[INPUT] [LiNESIZE(expression)] 



[RECORD] 



[OUTPUT] 



INPUT 

OUTPUT 

UPDATE 



PRINT 

LINESIZE (expression) 

PAGESIZE(expression) 



DIRECT 

SEQUENTIAL 

SEQL 



[KEYED] 



Figure 12-50. OPEN Statement Syntax 
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The PAGESIZE option defines the maximum number of lines 
that can be written before the ENDPAGE condition is 
raised. If the option is not included, system default is 60 
lines. 



Statement Processing 

The files to be opened are processed in left-to-right order. 
Each file is processed through the following steps: 

1. If a TITLE option is specified for the file, its expression 
is evaluated and converted to a character string. If the 
character string is longer than seven characters, the 
local file name is formed by concatenating the first 
four and the last three characters. 

2. If the LINESIZE or PAGESIZE option is present, its 
expression is evaluated and converted to a fixed binary 
integer. The value of this integer must be greater than 
zero. If the ENVIRONMENT option is present, its 
expression is evaluated and converted to character 
string. 

3. File opening is performed as described in section 8, 
Input/Output. If the file is already open, processing 
continues with the next file to be opened. 

4. If the file opening fails, the UNDEFINEDFILE condition 
is raised. If control returns from the UNDEFINEDFILE 
on-unit, processing continues with the next file to be 
opened. 

Examples of OPEN statements are shown in figure 12-51. 



OPEN FILE (FA) PRINT! 

DCL T9ANS RECORD FILE? 

DCL MPL FIXED DEC(5»0) INITO00): 

dcl Cycle charu) iNiTiALi^oooit) ; 

OPEN FILE(TPANS) TITLE (♦TR* vv CYCLE) 
UPDATE ENV(*FO=IS,RT«W»MRL*+ vv MPt. 


KEYED 

.); 



Figure 12-51. Sample OPEN Statements 



PROCEDURE STATEMENT 

The PROCEDURE statement, together with its associated 
END statement, delineates a sequence of statements called 
a procedure block. The syntax of a procedure block is shown 
in figure 12-52. The PROCEDURE statement denotes the 
primary entry point of the procedure. It can specify 
parameters for the entry point and the attributes of the 
value to be returned by the procedure when invoked at this 
entry point by a function reference. The syntax of the 
PROCEDURE statement is shown in figure 12-53. 



PROCEDURE-statement 

[block-unit] . . . 
END-state;nent 

where block-unit is 

procedure-block 

begin-block 

do-group 

A L LOC ATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

D EC LA R E-statement 

DELETE-statement 

ENTRY-statement 

FORMAT-statement 

FREE-statement 

GET-statement 

GOTO-statement 

IF-statement 

LOCATE-statement 

null-statement 

ON -statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

REWRITE-statement 

SIGNAL-statement 

STOP-statement 

WRITE-statement 



Figure 12-52. Procedure Block Syntax 



The following rules apply: 

• A condition prefix applies to all statements contained in 
the procedure block and in its contained blocks. The 
only exception is when a contained statement or block 
has a condition prefix enabling or disabling the same 
condition. 

• At least one entry-name must be included, lt.o ciiirv- 
name must not be subscripted. 

• A variable cannot appear more than once in the same 
parameter list. 

• Each parameter can be a scalar, an array, or a 
structure; it cannot be an array element, an array slice, 
or a structure member. 



[condition-prefix] . 



jentry-n 



(procedure 
Iproc 



[(parameter, , ,)] 
OPTIONS(MAIN) [RECURSIVE] 



Hi" 



ETURNS [(returns-descriptor)] 
ECURSIVE 



Figure 12-53. PROCEDURE Statement Syntax 
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Data types of corresponding parameters and arguments 
must be compatible. The number of parameters must 
equal the number of arguments passed when the entry 
point is invoked. 

If the procedure is invoked by CALL statement execu- 
tion, the RETURNS option must not be included; if the 
procedure is invoked by function reference, the 
RETURNS option must be included. 

RETURNS( ) is illegal. 

Each extent (string length or area size) appearing in a 
returns-descriptor must be an expression consisting only 
of litet-H] constants unci ihe operators +-*./ and':. 
Array bounds cannot appear in a returns-descriptor. 



• OPTIONS(MAIN) 
procedure. 



is permitted only on an external 



RECURSIVE can precede or follow OPTIONS(MAIN). 



Entry-Name 

Each entry-name of an internal procedure is explicitly 
declared by the compiler as an internal entry constant in the 
block that immediately contains the procedure. An internal 
entry-name cannot be declared by DECLARE statement. 
The entry-name is known in the block that immediately 
contains the procedure and in all blocks contained in that 
block. The scope of internal procedure entry-names is 
illustrated in figure 12-54. 



A: PROC ; 



B: PROC, 



C: PROC RECURSIVE : 




CC: ENTRY ; 



F: PROC ; 

L 



G: PROC; 

I 



The statement CALL C; can be immediately contained 
in block B, C, F, or G. The statement CALL CC; can be 
immediately contained in block B, C, D, E, F, or G. 



Figure 12-54. Scope of Internal Procedure Entry-Names 



Each entry-name of an external procedure is explicitly 
declared by the compiler as an external entry constant 
outside of any block. Unless there is an overriding 
declaration, the entry-name is known in the external 
procedure and in all blocks contained in that external 
procedure. 

A reference to an external entry constant from a point 
outside the external procedure that contains the 
PROCEDURE statement requires a DECLARE statement 
declaration as described under the ENTRY attribute in 
section 4, Attributes. 



Each external name that is longer than seven characters is 
modified before external references are resolved by the 
loader. Only the first four and last three characters of the 
original identifier are used. Care should be taken to avoid 
accidental duplication of external names that are modified 
according to this convention. External names should not 
include any of the characters $ @ # and_ ; external names 
containing these characters might conflict with names used 
by the system. 

An entry-name on a PROCEDURE statement can be used as 
the closure-name on the END statement associated with the 
procedure block. The entry-name can be referenced in a 
CALL statement or function reference that invokes s ! i>. 
procedure, and in an argument list, it wnnot be referenced 
m any other context. 

A PROCEDURE statement with multiple entry-names 
creates one entry point that can be referenced by any of its 
names. For example: 

ENTER:LOOP: PROC(Pl,P2) RETURNS(BIT(1)); 

All entry-names of a single PROCEDURE statement are 
equivalent with the following exception: 

If INRULE processing is specified on the PLI control 
statement when the procedure is compiled, the first 
character of an entry-name can determine the default 
attributes supplied for a returns-descriptor; therefore, a 
single entry point with multiple names can have two 
different returns descriptors. 



If a PROCEDURE statement is immediately followed by an 
ENTRY statement (even with no intervening executable 
statements), two separate entry points are created. The 
entry points can have different parameters and RETURNS 
options. For example: 

ENTER: PROC(Pl,P2) RETURNS(BIT(1)); 
LOOP: ENTRY(P3,P2) RETURNS(FLOAT); 



Parameters and Arguments 

Each parameter in a PROCEDURE statement is a variable 
with which an argument will be associated when the 
procedure is invoked at that entry point. The appearance of 
a variable in the parameter list constitutes an explicit 
declaration of the variable as a parameter in that procedure. 
The variable can also be declared by a DECLARE statement 
immediately contained in the same procedure block. 

A parameter can be declared with any consistent set of the 
following attributes: ALIGNED, AREA, BINARY, BIT, 
CHARACTER, DECIMAL, dimension, ENTRY, FILE, FIXED, 
FLOAT, INTERNAL, LABEL, LIKE, OFFSET, PICTURE, 
POINTER, precision, REAL, RETURNS, structure, 
UNALIGNED, and VARYING. FORMAT if i»i permitt**. 
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Arguments passed to the procedure are associated with 
corresponding parameters of the entry point. The first 
argument is passed to the first parameter, the second 
argument to the second parameter, and so forth. The 
various entry points of a procedure can have identical or 
different parameters. When a procedure is invoked, only 
those parameters associated with the invoked entry point 
should be referenced during that activation. Refer to 
section 6, References, for additional information. 

Procedure Invocation 

An entry point with the RETURNS option is a function 
entry; one without the RETURNS option is a subroutine 
entry. A procedure can have both function and subroutine 
entries. 

A procedure invoked as a function must be invoked at a 
function entry by a function reference. The procedure 
activation must be terminated by a RETURN statement with 
a return-value, a STOP statement, or a GOTO statement. 

A procedure invoked as a subroutine must be invoked at a 
subroutine entry by a CALL statement. The procedure 
activation must be terminated by a RETURN statement with 
no return-value, an END statement, a STOP statement, or a 
GOTO statement. 



Returns-Descriptor 

The returns-descriptor is a list of attributes. It specifies the 
attributes of the value that is to be returned to the point of 
invocation by a RETURN statement with a return-value. 
When the RETURN statement is executed, the value of the 
expression is converted to the data type specified by the 
returns-descriptor of the entry point through which the 
procedure was activated. ~- — 



Iliiiliifl 



111* 



The returns-descriptor Can include any consistent set of the 
following attributes: ALIGNED, AREA, BINARY, BIT, 
CHARACTER, DECIMAL, FKED, FLOAT, OFFSET, 
PICTURE, POINTER, precision, REAL, UNALIGNED, and 
VARYING. Dimension, BNTRY, FILE, FORMAT, LABEL, 
me v..-7 • :■ ' s.- . :li ■■■• are -■:;'. permitle '. 

if INRULE process c - specified ,.- '.:.- '"<'• control 
statement when the procedure is compiled, the default 
attributes for RETURNS with no explicit returns-descriptor 
depend upon the initial character of the entry-name. If the 
character is one of the letters I through N, RETURNS is 
equivalent to RETURNS(FDCED BINARY(15,0)); otherwise, 
RETURNS is equivalent to RETURNS(FLOAT DECIMAL(14)). 

If standard arithmetic defaults are used when the procedure 
is compiled, RETURNS with no parentheses or returns- 
descriptor is equivalent to RETURNS(REAL FIXED 
BINARY(15,0)). 

RECURSIVE Option 

The RECURSIVE option specifies that the procedure can be 
activated recursively; that is, the procedure can be acti- 
vated while it is already active. A procedure can be invoked 
recursively at the same entry point or at different entry 
points. 

OPTIONS(MAIN) 

OPTIONS (MAIN) specifies that the external procedure is a 
main procedure. A PL/I program must have exactly one 
main procedure. When program execution is initiated by an 



operating system control statement, the main procedure is 
activated at its primary entry point. 

OPTIONS(MAIN) is permitted only in the PROCEDURE 
statement that heads an external procedure. 



Statement Processing 

When control is transferred to the entry point, the procedure 
that immediately contains the entry point is activated. 
Each argument passed to the procedure is associated with 
the corresponding parameter of the entry point. A gener- 
ation of storage is allocated for each automatic variable 
declared in the procedure; if the variable has the INITIAL 
attribute, it is assigned an initial value. Each defined 
variable declared in the procedure is associated with a 
generation of storage. Control then passes to the statement 
following the PROCEDURE statement. 

A PROCEDURE statement has no effect when it is 
encountered in the sequential flow of controL The entire 
procedure is bypassed and control passes to the statement 
following the END statement of the procedure. 

Examples of PROCEDURE statements are shown in 
figure 12-55. 



P: PRQC OPTIONS(MAIN) I 
DCL B ENTRY EXTERNAL J 



X = Y»INNER(A)»H 



INNER: PROCEDURE <PM> RETuRNSCFlXFDM 
DCL PM FLOAT I 



RETURN (Q) I 
END INNER! 



CALL B» 

END P» 
B: PROCI 

• - 

END at 



P and B are external procedures; INNER is an internal 
procedure. INNER is invoked as a function with a 
parameter list (PM); the function returns a fixed point 
value to be used in the evaluation of the expression 
Y*INNER(A) + 1. B is invoked by the statement 
CALL B, and it does not return a value. 



Figure 12-55. Sample PROCEDURE Statements 
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Conditions 

The STORAGE condition is raised during block activation if 
storage cannot be obtained for generations of storage 
associated with the block activation. If the STORAGE on- 
unit frees sufficient space, the allocation is made and 
execution continues normally. If the on-unit does not free 
sufficient space, the ERROR condition is raised. 

Computational conditions can be raised during evaluation of 
extent expressions for parameters and for automatic and 
defined variables. 



PUT STATEMENT 

The PUT statement is a stream I/O statement that performs 
the following operations: 

The statement can construct a continuous stream of 
characters from values located in PL/I generations of 
storage and transmit that character stream to a PL/I 
storage generation or to a CRM file. 

The statement can position a stream output file forward 
before transmitting data, between data transmissions, 
or without transmitting data.. 

The syntax of the PUT statement is shown in figure 12-56. 

The following rules apply: 

• The options FILE, STRING, SKIP, LINE, PAGE, LIST, 
and EDIT can appear in any order. The order of option 
keywords has no significance; the order of items within 
an option is significant. 

• In the FILE option, file-reference must be a file 
constant or a file variable. 

• In the STRING option, output-target must be a scalar 
character variable or pseudovariable. 

• In the SKIP option, line-count can be an expression. 
It must be scalar and computational. 

« In the LINE option, new-line can be an expression. It 
must be scalar and computational. 

• When the PAGE or LINE option is executed, the file 
must have the attribute PRINT. 

LIST and EDIT Options 

The LIST or EDIT option specifies the mode of stream 
output transmission. Each option contains a list of source 
expressions with values that are to be transmitted, and 
includes instructions for constructing a target stream from 
the source values. A PUT statement can contain one LIST 
option or one EDIT option, but not both. 

The target stream for list-directed output is created as a 
list of target values. The target stream for edit-directed 
output is created according to the format-specification list 
and any FORMAT statements referenced by that list. 

Each output-source specifies either a source expression, or 
one or more source expressions that are under control of an 
embedded-do. Output-sources are processed from left to 
right. If the EDIT option contains multiple output-source 
lists, the lists are processed from left to right until values 
have been assigned to all output-sources; control then passes 
to the next statement. 

Each output-source expression yields a scalar value to be 
used in constructing the target stream. The source 



expression can be an array element, but not an unsubsci iptcd 
array name. It cannot have asterisk subscripts. It san be a 
structure member, but cannot be b structure. 

An output-source list can specify iteration by means of an 
embedded-do. The following rules apply: 

• Parentheses enclose one or more output-source expres- 
sions and the embedded-do. 

• Each level of embedded-do requires its own set of 
parentheses. 

• The LIST or EDIT option has its own required paren- 
theses, which are distinct from any parentheses re- 
quired for the output-source expressions and 
embedded-do. 

• No comma appears between the last (or only) output- 
source in the list and the embedded-do. 



FILE and STRING Options 

The FILE or STRING option specifies the location of the 
target stream. The target stream can be located on a CRM 
file (FILE option) or can be a PL/I generation (STRING) 
option. 

The target stream is the stream of characters constructed 
from the source values. If the target stream is located on a 
CRM file, the PUT statement treats the target stream as a 
continuous stream of characters with the following 
structure: 

• The target stream has a current position so that 
transmitted data can be appended to the end of the 
existing stream. 

• The target stream is divided into lines so that it is 
possible to skip to the beginning of a line. 

• Each character has a column position within a line. 

• If the CRM file has the PRINT attribute, the target 
stream is divided into pages so that it is possible to skip 
to the beginning of a page or to the beginning of a 
specified line on a page. 

A PUT statement can contain one FILE option or one 
STRING option, but not both. If the PUT statement contains 
neither a FILE option nor a STRING option, FILE(SYSPRINT) 
is assumed. 



FILE Option 

The FILE option specifies that the target stream is located 
on a file. If the referenced file is open, it must be a 
STREAM OUTPUT or STREAM OUTPUT PRINT file. If the 
file is not open, an attempt will be made to open it 
implicitly with the attributes STREAM and OUTPUT. 



STRING Option 

The STRING option specifies that the target stream is a 
scalar character variable or one of the pseudovariables 
ONCHAR, ONSOURCE, or SUBSTR. Each time the PUT 
statement is executed, the initial position of the stream is 
the first character in the character variable or 
pseudovariable. The character variable or pseudovariable 
must not reference the same generation of storage as any 
output-source item. 
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File Positioning 

!SKIP [(line-count)] 
LINE [(new-line)] 
PAGE [LINE [(new-line)]] 



Stream Output 



[prefix] . . . PUT 



[FILE(file-reference)] 



[SKIP [(line-count)] 
[PAGE] [LINE [(new-line)]] 



. STR ING(output-target) 



LISTfoutput-sou'rce , , ,) 



)It| 



EDITMOutput-source , , ,) (format-specification , , ,) 

where output-source is 

y expression i 

| (output-source , , , embedded-do) » 

where embedded-do is 



)■■■ 



DO index 



start-expressiorr 



I TO expression 
BY expression 



[WHILE (expression)] 1 



where format-specification is 

/ hnteger \ (format-specification , , ,) 
((expression); 

I A [(width)] 
B [(width)J 



jCOLUMN J [{new . co | umn)] 

E (width,fd [,sd]) 
F (width [,fd [,scale]J ) 
LINE [(new-line)] 
P 'picture-specification' 
PAGE 

R (remote-format) 
SKIP [(line-count)] 
\ X [(space-count)] 



[integer 1 
(expression)] 



where line-count, new-line, new-column, and space-count are expressions. 



Figure 12-56. PUT Statement Syntax 
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SKIP Option 

The SKIP option specifies that the CRM file is to be 
positioned forward by some number of lines before data 
transmission begins, or is to be simply positioned forward 
with no subsequent data transmission. Skipping is performed 
before data transmission, even if the SKIP option appears to 
the right of the LIST or EDIT option. 

The expression is evaluated and converted to an integer. 
| If the SKIP option does not include an expression to 
indicate the actual number of lines, SKIP(l) is assumed. 
SKIP(O) is legal only when the file is opened with the 
PRINT attribute; this option causes the next line to be 
overprinted on the preceding line. The initial position of a 
new output file immediately after it is opened is the first 
character of the first line. For preexisting files, the 
initial position is the top of page 1, but not the 
beginning-of-information. A print file is positioned at the 
first page. 



LINE Option 

The LINE option specifies vertical spacing for a print file. 
The operation is performed before data transmission, even if 
the LINE option appears to the right of the LIST or EDIT 
option. 

The expression is evaluated and converted to an integer. 
When the LINE option does not include an expression, 
LINE(l) is assumed. LINE(n) is processed as follows: 



TABLE 12-11. PUT STATEMENT PROCESSING 



LINE(n) specifies the 
current line. 



LINE(n) specifies a line 
beyond current line, but 
not beyond PAGESIZE. 

LINE(n) specifies a line 
before current line or 
beyond PAGESIZE. 



No effect if line n is empty. 
If it is not empty, it skips 
to a new page. 

Skip to specified line. 



Skip remainder of page and 
raise ENDPAGE condition. 



PAGE Option 

The PAGE option specifies positioning of a print file at the 
beginning of a new page. Positioning is at column 1, line 1 
of the following page. The operation is performed before 
data transmission, even if the PAGE option appears to the 
right of the LIST or EDIT option. 



Statement Processing 

Execution of the PUT statement is performed in the order 
shown in table 12-11. This information is important for the 
following reasons: 



Step 


PUT Statement 
Option 


Action Taken 


1. 


STRING 


The length of the target 
generation is evaluated. 
(The length of the ONCHAR 
pseudovariable is 1.) 


2. 


SKIP 


The expression is evaluated 
and converted to a fixed 
binary integer. 


3. 


LINE 


The expression is evaluated 
and converted to a fixed 
binary integer. 


4. 


FILE or assumed 


If the file is not open, it is 




file option 


opened implicitly with 
attributes STREAM and 
OUTPUT. 


5. 


PAGE 


The file must have the 
PRINT attribute. The file 
is positioned at the top of 
the next page. 


6. 


LINE 


The file must have the 
PRINT attribute. The line 
value must be greater than 
zero. The file is positioned 
at the required line. This 
step can raise ENDPAGE. 


7. 


SKIP 


If the file has the PRINT 
attribute, the skip value 
must be greater than or 
equal to zero; if the file 
does not have the PRINT 
attribute, the skip value 
must be greater than zero. 
The file is positioned for- 
ward by the specified num- 
ber of lines; the next 
character transmitted to 
the file will be in column 1. 
Execution of the SKIP op- 
tion can raise ENDPAGE. 


8. 


LIST or EDIT 


Data is transmitted as 
described in section 8, 
Input/Output. 


9. 


STRING 


The output stream is 
assigned to the string 
target. 



• If a condition is raised during execution of the PUT 
statement, not all of the operations will have been 
performed. 



• If an on-unit does not return to the point at which the 
condition was raised, not all of the operations will have 
been performed. 

• If any option contains a function reference, the effect 
of the PUT statement can depend on the order in which 
operations are performed. 

Examples of PUT statements are shown in figure 12-57. 



Conditions 

Conditions that can be raised during PUT statement execu- 
tion include: UNDEFINEDFILE, ENDPAGE, ERROR, and 
TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 
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PUT STRlNG(0NS0lJRCEO)EDIT<P»Q> <A<4>»A<6)>; 

The statement specifies ed it-directed transmission of the 
values of P and Q to the ONSOURCE pseudovariable. 

PUT FILE(OUTFILE) LINE (35) LIST<ft .B.C» P. Q) J 

The statement specifies list-directed output of the values 
of A.B.C, P, and Q to the CRM file associated with the 
file OUTFILE. Before transmission, the CRM file is 
positioned forward to the line specified by the LINE 
option. 

PUT FILE(F) SKIP<3> LIST»A» 

<B<I> DO I ■ 3 TO J BY 2) > » 

The statement specifies list-directed output of the value 
of A and the values of zero or more elements of the 
array B. Before transmission, the CRM file is positioned 
forward to the third line relative to the current line. 



Figure 12-57. Sample PUT Statements 



The ENDPAGE condition is raised when the current line 
becomes larger than the page size. If control returns 
from the ENDPAGE on-unit, statement processing 
continues. 

The ERROR condition is raised when the string speci- 
fied by the STRING option is too small to contain the 
transmitted characters. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the PUT statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 



• The INTO option read-target- must iie mi unAitac'ipiPri 
i-«-;Vivric<- l<> h var-ijhio '.lint doss not have the member 
iiU'.'ibutc. The s turfite lypo of I he variable rr.usl be 
STATIC, AUTOMATIC, CONTROLLED, or BASED. 

• The SET option pointer must be an allocated scalar 
pointer variable. 

• The IGNORE option expression must be scalar and 
computational. The option can only be used for a file 
that has the SEQUENTIAL attribute. 

• The KEY option expression must be scalar and 
computational. The option can only be used for a file 
with the KEYED attribute. 

• The KEYTO option key-target must be an allocated 
scalar character variable, or an appropriate 
pseudovariable. The option can only be used for a file 
with the KEYED attribute. 



INTO, SET, and IGNORE Options 

A READ statement can include only one of the three options 
INTO, SET, and IGNORE. Each option is identified as 
follows: 

The INTO option identifies a variable. The record is 
read into the generation of storage for the variable. 



The SET option specifies that a buffer is to be allocated 
and a record is to be read into the buffer. The address 
of the allocated buffer is assigned to the pointer 
variable. 



The IGNORE option specifies that the CRM file is to be 
positioned forward by zero or more records and the 
skipped records are to be ignored. 



READ STATEMENT 

The READ statement is a record I/O statement that reads a 
record from a CRM file into a generation of storage or reads 
forward for record positioning purposes. The syntax of the 
READ statement is shown in figure 12-58. 



[prefix]. . . READ FILE (file-reference) 



J INTO(read-target) j 
) SET(pointer) i 

(iGNORE(expression)J 



KEY(expression) 
KEYTO(key-target) 



KEY and KEYTO Options 

A READ statement can include only one of the two options 
KEY and KEYTO. Each option is identified as follows: 

The KEY option specifies the key of the record to be 
read. If both the KEY and IGNORE options are 
included, the KEY option specifies the key of the record 
to which the CRM file is to be positioned before 
skipping begins. 

The KEYTO option specifies that the key of the record 
is to be obtained and assigned to the key-target. If both 
the KEYTO and IGNORE options are included, the 
IGNORE option specifies forward positioning and the 
KEYTO option specifies that the key of the last record 
ignored is to be obtained and assigned. 



Figure 12-58. READ Statement Syntax 



The following rules apply: 

• Keywords can appear in any order after the READ 
keyword. 

• The file-reference must be a file constant or a file 
variable. 

• A direct file requires the KEY option and either the 
INTO or SET option. 



Statement Processing 

The READ statement is processed through the following 
steps in the order given: 

1. The INTO, SET, or IGNORE option is evaluated. The 
IGNORE option expression is converted to a fixed 
binary integer; its value must be greater than or equal 
to zero. The KEY or KEYTO option is evaluated. The 
value of the ,KEY option expression is converted to a 
character string. 
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3. 



If the file is open, it must have the RECORD attribute 
and must have either the INPUT or the UPDATE 
attribute. If the file is not open, an implicit file 
opening is executed. The RECORD attribute is supplied 
for the file opening. If the file is not declared with the 
UPDATE attribute, the INPUT attribute is also 
supplied. 

If the file has an allocated buffer from previous 
execution of a READ statement with a SET option, that 
allocated buffer is freed. 



4. KEY option processing is performed as follows: 



KEY option is 
included 



KEY option is 
not included 



The current-record designator is set 
to identify the record. 

The record denoted by the current- 
record designator is the previous 
record read. If an INTO or SET 
option is present, the designator is 
reset to identify the next record in 
the CRM file. 



Conditions 

Conditions that can be raised during READ statement 
execution include: UNDEFINEDFILE, KEY, ENDFILE, 
RECORD, and TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 



The KEY condition is raised when the key identified by 
the KEY option does not identify a record in the CRM 
file. The current-record designator is set to undefined. 
If control returns from the KEY on-unit, program 
execution continues at the statement following the 
READ statement. 



The ENDFILE condition is raised when end-of-file is 
reached during IGNORE, INTO, and SET option 
processing. If control returns from the ENDFILE 
on-unit, execution continues with the statement follow- 
ing the READ statement. 



5. The IGNORE option is processed. The current-record 
designator is set to identify the record that is the 
specified number of lines beyond the current record. If, 
for example, the current-record designator is positioned 
at record 1, IGNORE(2) causes the designator to be 
reset to identify record 3. If the IGNORE option value 
is zero, no action is taken. 

6. The KEYTO option is processed. The value of the key 
associated with the current record is assigned to the 
key-target. 

7. The INTO option is processed. The current record is 
copied into the generation associated with the read- 
target. 

8. The SET option is processed. A generation is allocated 
and associated with the file as a record buffer. The 
length of the buffer is established as the current record 
length. The current record is copied into the allocated 
buffer, and a value is assigned to the pointer variable 
specified by the SET option. The generation will be 
freed by a subsequent READ, DELETE, or REWRITE 
statement, or when the file is closed. 



Examples of READ statements are shown in figure 12-59. 



READ 


FILE(A) 


INTO(INREC); 


READ 


FILE(B) 


IGNORE (I); 


READ 


FILE<C> 


SET(CRECPTR) KEYOMH 


READ 


FILE<D> 


INTO (OREO KEYTO (CURRKEY > » 


READ 


FICE(E) 


KEY(K) I6N0RE<2)t 



The RECORD condition is raised when the record 
designated by the current-record designator is not the 
same length as the buffer allocated during SET option 
processing. If control returns from the RECORD 
on-unit, statement processing continues. If the record 
is shorter than the buffer, the excess area in the buffer 
has an undefined value. If the record is longer than the 
buffer, the excess part of the record is ignored. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the READ statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 



RETURN STATEMENT 

The RETURN statement terminates a procedure or on-unit 
activation and returns control to the point at which the 
procedure was invoked or to the block in which the condition 
was raised. The RETURN statement can specify a value to 
be returned by a procedure. The syntax of the RETURN 
statement is shown in figure 12-60. 



[prefix]... RETURN [(return-value)] ; 



Figure 12-59. Sample READ Statements 



Figure 12-60. RETURN Statement Syntax 

The following rules apply: 

• The return-value r ist b .,?, :nr. 

• The return-value can bs a computational, locator, or 
area value. The return-value cannot be a file, format, 
eiitrj, or iatsel value. 
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A particular RETURN statement and a particular entry 
point of a procedure are said to be compatible if one of the 
following is true: 

The RETURN statement has no return-value, and the 
entry point has no RETURNS option. 

The RETURN statement has a return-value, the entry 
point has a RETURNS option, and the data type of the 
return-value can be converted to the data type speci- 
fied by the RETURNS option. 

A RETURN statement with no return-value is compatible 
with an on-unit. 

When the RETURN statement is executed, the following 
actions are taken in the order shown: 

1. If the RETURN statement has a return-value, the 
return-value is evaluated. 

2. If the current block activation is an activation of a 
begin block, the activation is terminated abnormally; 
this step is repeated until the current block activation 
is either a procedure or an on-unit activation. 

3. The RETURN statement is checked against the entry 
point used to invoke the procedure or against the 
on-unit; it must be compatible with the entry point or 
on-unit. 

4. If the current block activation is now a procedure 
activated at a subroutine entry point, the current block 
activation is terminated normally; and control passes to 
the statement following the CALL statement that 
invoked the procedure. 

If the current block activation is now a procedure 
activated at a function entry point, the return-value is 
converted to the type specified by the RETURNS option 
of the entry point. The current block activation is 
terminated normally, control passes to the statement 
containing the function reference that invoked the 
procedure, and the converted return-value is used in 
that statement execution. 

If the current block activation is now an on-unit 
activation, the current on-unit activation is terminated 
normally; and control passes either to the statement in 
which the condition was raised, or to the following 
statement. (Note that on-units for some conditions 
cannot be terminated normally.) The precise point to 
which control is returned depends upon the particular 
condition and the manner in which it was raised. Refer 
to section 10, Conditions, for details. 

Examples of RETURN statements are shown in figure 12-61. 



REVERT STATEMENT 

The REVERT statement removes the on-unit established in 
the current block activation for the specified condition. The 
on-unit that was in effect for the specified condition when 
the current block was activated is restored. The syntax of 
the REVERT statement is shown in figure 12-62. 

The following rules apply: 

• The condition must be one of the names listed in the 
table of conditions in section 10 (table 10-1). 

• On ■■•- • - . ■ ■ -.. ■-:.;■ ■:■.■.. : ■'.-. itcmcnt. 



a: 


PROC RETURNS (CHAR <5>>» 

• 




• 

IF I<J THEN RETURN<ISTRlNG>» 
ELSE RETURN <*FAIL*M 
ENO At 


e: 


proc recursive 1 
dcl <p«o) float; 

• 




• 

X = E<I.J>*K» 

• 




• 

RETURNt 


E: 


ENTRY(P«0> RETURNS (F IXEO) ; 

• 


• 

INNER: BFGINI 




• 

RETURN IY»»2M 
ENDt 
ENO 9» 



Figure 12-61. Sample RETURN Statements 



[prefix]... REVERT coiiUitioi ; 



Figure 12-62. REVERT Statement Syntax 

The REVERT statement only removes an on-unit that was 
established in the current block activation. If the REVERT 
statement references a condition for which there is no 
established on-unit in the current block activation, no action 
is taken. 

Examples of REVERT statements are shown in figure 12-63. 



p: PROC; 



ON RECORD <F ILEA) CALL MSGPROC* 
ON RECORD (FILEB) SYSTEM! 



REVERT RECORD <FILEA> I— Removes program- 
• med on-unit for 

RECORD(FILEA). 



REVERT ZEROOIVIDE* 



end; 



-No action taken; 
ZERODIVIDE 
on-unit was not 
established in this 
block activation. 



Figure 12-63. Sample REVERT Statements 
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REWRITE STATEMENT 



4. FROM option processing is performed as follows: 



The REWRITE statement is a record I/O statement that 
replaces an existing record in a CRM file. The syntax of the 
REWRITE statement is shown in figure 12-64. 



[prefix]. . . REWRITE FILE(file-reference) 
[FROM(source) [KEY(expression)]] ; 



Figure 12-64. REWRITE Statement Syntax 



The following rules apply: 

• Keywords can appear in any order after the REWRITE 
keyword. 

• The file-reference must name a file constant or a file 
variable. 



FROM option The generation identified by the 
is included. FROM option is written as a replace- 

ment record. 



FROM option is The allocated buffer previously 

not included. established by a READ statement 

with a SET option is written as a 

replacement record. The buffer is 

then freed. 

Examples of REWRITE statements are shown in 
figure 12-65. 



REWRITE FlLE(A) FROM<X<2))l 

REWRITE FILE(H); 

REWRITE FILE(C) KEY<CKEY»I) FROM(Y); 



rhe FROM ■■>.■'.■'..:-. source musl be a • : ibscripted 
reference to a variable that does not have the member 
attribute. The storage type of the variable must be 
STATIC, AUTOMATIC, CONTROLLED, or BASED. 

The KEY option expression must be scalar and 
computational. 



Figure 12-65. Sample REWRITE Statements 



Conditions 

Conditions that can be raised during REWRITE statement 
execution include: UNDEFINEDFILE, KEY, RECORD, and 
TRANSMIT. 



FROM and KEY Options 

The FROM option identifies the variable with a generation 
that is to be written as the replacement record. If the 
FROM option is not included, an allocated buffer established 
by a READ statement with a SET option must be associated 
with the file; the buffer contains the replacement record. 

The KEY option supplies the key value that is used to 
identify the record when it is written. 



The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 



The KEY condition is raised when the key identified by 
the KEY option does not identify a record in the CRM 
file. The current-record designator is set to undefined. 
If control returns from the KEY on-unit, program 
execution continues at the statement following the 
REWRITE statement. 



Statement Processing 

The REWRITE statement is processed through the following 
steps in the order given: 

1. The FROM option is evaluated to determine the 
generation to be written. The KEY option is evaluated 
and the expression is converted to a character string. 

2. If the file is open, it must have the attributes RECORD 
and UPDATE. If the file is not open, an implicit file 
opening is executed. Implied attributes RECORD and 
UPDATE are supplied for the file opening. 



The RECORD condition is raised when the record 
designated by the current-record designator is not the 
same length as the FROM option source. If control 
returns from the RECORD on-unit, statement proces- 
sing continues. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the REWRITE statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 



If the KEY option is present, the file must have the 
KEYED attribute; if the KEY option is not present, the 
file must not have the KEYED attribute. KEY option 
processing is performed as follows: 

KEY option The current-record designator is set 

is included. to identify the record specified by 

the KEY option. 

KEY option is The record denoted by the current- 
not included. record designator is the record to be 
replaced. 



SIGN Al STATEMENT 

The SIGNAL statement simulates a condition. The syntax of 
the SIGNAL statement is shown in figure 12-66. 



[prefix] . . . SIGNAL condition 



Figure 12-66. SIGNAL Statement Syntax 
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The following rule applies: 

• The condition must be one of the names listed in the 
table of conditions in section 10 (table 10-1). 

If the condition is enabled, execution of the SIGNAL 
statement simulates the condition. Values are assigned to 
the appropriate condition built in functions, and the current 
established on-unit for that condition is activated. If 
control returns from the on-unit, control passes to the 
statement following the SIGNAL statement. 

When the SIGNAL statement is executed, the following 
condition builtin function assignments are made: 



ONCODE and 
ONLOC 

ONFILE 



ONKEY 



ONCHAR 



ONSOURCE 



are set to new current values.. 



is set to the named file if an I/O 
condition is signaled. 

is set to a null character string if the 
KEY condition is signaled. 

is set to a null character string if the 
CONVERSION condition is signaled. 

is set to a null character string if the 
CONVERSION condition is signaled. 



Examples of SIGNAL statements are shown in figure 12-67. 



SIGNAL 


CONVERSION? 


SIGNAL 


TRANSMITlFILEAM 


SIGNAL 


APEAI 


SIGNAL 


CONDITION(MINE)* 



Figure 12-67. Sample SIGNAL Statements 



STOP STATEMENT 

The STOP statement raises the FINISH condition. On 
normal termination of the FINISH on-unit, the program is 
terminated. The syntax of the STOP statement is shown in 
figure 12-68. 



[prefix] ... STOP 



Figure 12-68. STOP Statement Syntax 



The FINISH condition is raised before program execution is 
terminated. All active blocks remain active during the 
execution of the FINISH on-unit. If control returns from the 
on-unit to the point of interrupt, all active blocks are 
terminated, all open files are closed, and control is returned 
to the operating system. 

A programmed FINISH on-unit can be written to perform 
special termination processes or cause program execution to 
continue. Program execution continues if the FINISH 
on-unit is terminated by a nonlocal GOTO. 



The system FINISH on-unit returns control to the point of 
interrupt. 

Examples of STOP statements are shown in figure 12-69. 



IF COUNT > LIMIT THEN STOPI 
ON ENOFILE(F) SNAP STOP? - 



Figure 12-69. Sample STOP Statements 



WRITE STATEMENT 

The WRITE statement is a record I/O statement that 
transmits a record to a CRM file. The statement can be 
used to create CRM files and to append records to existing 
CRM files. The syntax of the WRITE statement is shown in 
figure 12-70. 



[prefix]. . . WRITE FILE (file-reference) 

FROM(source) [KEYFROM(expression)] 



Figure 12-70. WRITE Statement Syntax 



The following rules apply: 

• Option keywords can appear in any order after the 
WRITE keyword. 

• The file-reference must name a file constant or a file 
variable. 

• Th< FROM option source must be n .-; .'.■•■. 

reference to a variable that does not have the member 
attribute. The storage type of the variable must be 
STATIC, AUTOMATIC, CONTROLLED, or BASED. 

• The KEYFROM expression must be scalar and 
computational. 



FROM and KEYFROM Options 

The FROM option identifies the variable with the generation 
that is to be written as the new record. 

The KEYFROM option supplies the key value that is used to 
identify the record when it is written. 



Statement Processing 

The WRITE statement is processed through the following 
steps in the order given: 

1. The FROM option is evaluated to determine the 
generation to be written. If the KEYFROM option is 
present, its expression is evaluated and converted to a 
character string. 

2. If the file is not open, an implicit file opening is 
executed. The RECORD attribute is supplied for the 
file opening. If the file is not declared with the 
UPDATE attribute, the OUTPUT attribute is also 
supplied. 
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The file must now have the RECORD attribute; it must 
also have either the OUTPUT attribute or the UPDATE 
and DIRECT attributes. 



4. If the KEYFROM option is present, the file must have 
the KEYED attribute. If the KEYFROM option is not 
present, the file must not have the KEYED attribute. 



5. If an output record buffer created by a previous 
LOCATE statement exists, the buffer is written as a 
record to the CRM file. If the output file is DIRECT, 
the key value specified in the KEYFROM option is 
associated with the record. If the output file is 
SEQUENTIAL, the record is written at the position 
immediately following the one indicated by the current- 
record designator. The current-record designator is 
changed to identify the new record. The buffer is then 
freed. 



If the file has a buffer allocated by the previous 
execution of a READ statement with a SET option, that 
buffer is freed. 



The generation identified by the FROM option is 
written to the CRM file. If a KEYFROM option is 
included, its value is associated with the new record and 
determines where the record is written. If a KEYFROM 
option is not included, the record is written at the 
position immediately following the one indicated by the 
current-record designator. The current-record desig- 
nator is changed to identify the new record. 



Examples of WRITE statements are shown in figure 12-71. 



WRITE <FIlE(A) FROM(PAYROLL) KEYFROM (EMPNO) ; 
WRITE F90M (SNAPSHOT) FILE(B)! 



Figure 12-71. Sample WRITE Statements 
Conditions 

Conditions that can be raised during WRITE statement 
execution include: UNDEFINEDFILE, KEY, RECORD, and 
TRANSMIT. 

The UNDEFINEDFILE condition is raised when an 
implicit file opening fails. If control returns from the 
UNDEFINEDFILE on-unit and the file is still not open, 
the ERROR condition is raised. 

The KEY condition is raised during the buffer write 
operation or the record write operation when the key 
value duplicates an existing key in the CRM file. If 
control returns from the KEY on-unit, program execu- 
tion continues at the statement following the WRITE 
statement. 

The RECORD condition is raised during buffer write 
operations when the record size is unacceptable for the 
CRM file. If control returns from the RECORD 
on-unit, the ERROR condition is raised. 

The TRANSMIT condition is raised if parity errors are 
encountered. If control returns from the TRANSMIT 
on-unit, execution continues with the statement follow- 
ing the WRITE statement. 

Computational conditions can be raised during expression 
evaluation, conversion, and assignment. 
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COMPILATION 



13 



The PL/I compiler is called with a control statement that 
conforms to operating system syntax. The control state- 
ment can be continued under the NOS/BE operating system; 
it cannot be continued under the NOS operating system. 

More than one external procedure can be compiled by a 
single call to the compiler. The procedures must follow 
each other without any intervening end-of-record or end- 
of-file. 



PLI CONTROL STATEMENT 

The name to be used on the control statement is PLI, 
beginning in column 1. The PLI control statement can 
appear in one of the following forms: 

PLI(pl,p2, . . . ,pn) comments 

PLLpl,p2, . . . ,pn. comments 

PLI. comments 

Parameters (p.) can be written in any order and must be 
separated by commas. It is an error if any parameter 
appears more than once. Comments are optional. They are 
ignored by the compiler but are printed on the dayfile. 

All parameters are optional. The defaults that result from 
omission of a parameter might be changed at an installation. 
Parameters are given in alphabetic order in the following 
paragraphs. 

B BINARY OUTPUT FILE NAME 

omitted 



B 



B=lfn 



B=0 



Binary output from compilation is written 
to file LGO. 

Binary output from compilation is written 
to file BIN. 

Binary output from compilation is written 
to file lfn, where lfn is a name consisting 
of letters A through Z and digits through 
9. The name must be one to seven 
characters in length and must begin with a 
letter. 

Binary output from compilation is 
suppressed. 



BL BURST ABLE LISTING 

omitted The error list and the attribute list can 

begin anywhere on a page. 

BL Page ejection occurs before the error 

directory and before the attribute list. 

COL SOURCE COLUMNS 

omitted Source text on the input (I) file is in 

columns 1 to 72, inclusive; the system 
supplies standard carriage control to the 



source listing. Columns outside 1 through 
72 are ignored. 

COL Source text on the input (I) file is in 

columns 2 to 72, inclusive; a carriage con- 
trol character is found in column 1. Col- 
umns outside 2 through 72 are ignored. 

COL=m/n[yp] Source text on the input (I) file is in 
columns m to n, inclusive; a carriage con- 
trol character is found in column p. All 
other columns are ignored. The allowable 
ranges of m, n, and p are 

l<n< 100 

l<m<n 

0<p< 100 

The value of p must be less than m or 
greater than n. If p is or is not speci- 
fied, the system supplies standard car- 
riage control to the source listing. 

Carriage control characters are used to 
print the source listing on the L file if the 
LO=S option is selected. Characters in 
column p have the following meanings: 

blank Single space 

Double space 
Triple space 

1 Page ejection 

Any other characters appearing in column 
p are ignored. 



DB DEBUGGING OPTIONS 

omitted Equivalent to DB=0. 

DB Equivalent to DB=B. 

DB=B Loadable binary output is produced re- 

gardless of errors. Execution of a state- 
ment with an error of severity C or F will 
raise the ERROR condition. 

DB=0 Loadable binary output is produced for 

external procedures that do not contain 
any errors of severity C or F. The binary 
output produced for an external procedure 
that does contain an error of severity C 
or F is not loadable; attempting to load it 
produces a fatal loader error. 



ERROR FILE NAME 

omitted Error information specified by the EL 

parameter is written to file OUTPUT. 
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E Error information specified by the EL 

parameter is written to file ERRS. 

E=lfn Error information specified by the EL 

parameter is written to file lfn, where lfn 
is a name consisting of letters A through 
Z and digits through 9. The name must 
be one to seven characters in length and 
must begin with a letter. 

E=0 Error file output is suppressed, despite 

any options specified by the EL 
parameter. 

Diagnostics written to the file specified by the E option 
are also written to the file specified by the L option. If 
the two files are the same, only one copy is written. 



ET 



ERROR TERMINATION 



EL 



ERROR LEVEL TO BE REPORTED 

omitted Equivalent to EL=W. 

EL Equivalent to EL=F. 



omitted 

ET 

ET=I 



ET=T 



ET=W 



ET=F 



Equivalent to ET=0. 

Equivalent to ET=F. 

Upon completion of all compilations, con- 
trol passes to the next appropriate control 
statement if the compiler has issued any 
diagnostics of levels I, T, W, F, or C. 

Upon completion of all compilations, con- 
trol passes to the next appropriate control 
statement if the compiler has issued any 
diagnostics of levels T, W, F, or C. 

Upon completion of all compilations, con- 
trol passes to the next appropriate control 
statement if the compiler has issued any 
diagnostics of levels W, F, or C. 

Upon completion of all compilations, con- 
trol passes to the next appropriate control 
statement if the compiler has issued any 
diagnostics of levels F or C. 



EL=I Informational -diagnostics, plus all errors 

of levels T, W, F, and C are listed. 

Level I diagnostics provide information to 
help the user improve the program. 

EL=T Trivial errors, plus all errors of levels W, 

F, and C are listed. 

Level T diagnostics indicate a minor vio- 
lation of implementation limits (the 
source program has been adjusted by the 
compiler); implementation-dependent 

usage; or potentially troublesome con- 
structs in PL/I. The syntax is correct, and 
the binary output is good. 

EL=W Warning errors, plus all errors of levels F 

and C are listed. 

Level W diagnostics indicate correct 
syntax but questionable usage. The binary 
output is good, but execution of the 
diagnosed statement might raise the 
ERROR condition. 

EL=F Fatal errors, plus all errors of level C are 

listed. 

Level F diagnostics indicate incorrect 
syntax or unresolvable semantic errors. 
Loadable binary output is produced only if 
DB=B is specified. 

EL=C Compiler errors only are listed. 

Level C diagnostics indicate that the 
limits of the compiler have been exceeded 
or the compiler has malfunctioned. Some • 
level C errors cause immediate 
termination of compilation. 

Diagnostics are listed on the files specified by the E 
and L parameters. 



ET=C Upon completion of all compilations, con- 

trol passes to the next appropriate control 
statement if the compiler has issued any 
diagnostics of level C. 

ET=0 Upon completion of all compilations, con- 

trol passes to the next appropriate control 
statement despite any errors diagnosed 
during compilation. 

Error termination does not depend on options specified for 
the E, L, and EL parameters. 

GO COMPILE AND EXECUTE 

omitted Equivalent to GOO. 

GO The binary output produced by the com- 

piler is loaded and executed at the end of 
compilation. If GO is specified without 
DB=B and there are any diagnostics of 
level F or C, control passes to the next 
appropriate EXIT control statement with- 
out invoking the loader. 

GO=0 The binary output is not loaded and 

executed by the PLI control statement. 



INPUT FILE NAME 

omitted Source code for the program to be com- 

piled resides on file INPUT. 

I Source code for the program to be com- 

piled resides on file COMPILE. 

I=lfn Source code for the program to be com- 

piled resides on file lfn, where lfn is a 
name consisting of letters A through Z 
and digits through 9. The name must be 
one to seven characters in length and 
must begin with a letter. 
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INRULE l-THRQUGH-N RULE 



omitted Equivalent to INRULE=0. 

INRULE The compiler uses nonstandard default 
attributes for arithmetic variables, 
parameter descriptors, and returns 
descriptors as described under Default 
Attributes in section 5. 

INRULE=0 The compiler uses the standard default 
attributes for all identifiers and 
descriptors. 



LISTING FILE NAME 

omitted Diagnostics and the information selected 

by the LO parameter are written to file 
OUTPUT. 

L Diagnostics and the information selected 

by the LO parameter are written to file 

LIST. 

L=lfn Diagnostics and the information selected 

by the LO parameter are written to 
file lfn, where lfn is a name consisting of 
letters A through Z and digits through 9. 
The name must be one to seven characters 
in length and must begin with a letter. 

L= No listing is produced, despite any options 

specified by the LO parameter. 

Diagnostics written to the file specified by the E 
option are also written to the file specified by the L 
option. If the two files are the same, only one copy is 

written. 



LO LISTING OPTIONS 

omitted Equivalent to LO=S/A. 

LO Equivalent to LO=S/A/R. 

LO=A A complete set of attributes for each 

declared identifier is listed. 



LO=0 



LO=R 



LO=S 



Generated object code with pseudo COM- 
PASS mnemonics is listed. 

A reference list is generated. For each 
identifier used in the program, a list of 
statement numbers of the statements 
referencing the identifier is generated. 

Source program is listed. All columns are 
listed, despite any options specified by the 
COL parameter. 



Multiple options for the LO parameter can be selected 
by separating the options with slashes. Options can 
appear in any order. 



PD 



PRINT DENSITY 



omitted Equivalent to PD=6. 

PD Equivalent to PD=8. 

PD=6 Listing specified by L and E parameters is 

spaced at six lines per inch. 

PD=8 Listing specified by L and E parameters is 

spaced at eight lines per inch. 

Any option specified by this parameter must be sup- 
ported by the printer on which the files are output. The 
PD parameter is ignored for interactive terminals. 



PS 



PAGE SIZE 



omitted Number of lines on a printed output page 

is 60 if PD is omitted or PD=6. Number 
of lines is 80 if PD=8. 

PS Illegal. 

PS=n Number of lines on a printed output page 

is n; the value of n cannot be less than 
four. 

The value of n does not include space for 
top and bottom margins. 



COMPILATION LISTINGS 

The LO parameter of the compiler call selects the listings 
that are produced during compilation. The listings appear on 
the standard job print file, OUTPUT, unless another file is 
selected by the L parameter of the PLI control statement. 

Listings that can be selected by the LO parameter are 

S Source listing 

A Attribute list 



R 
O 



Reference list 
Object code 



Another listing that appears is the error directory. Informa- 
tion in the error directory is duplicated on the error file, 
which is selectable by the E parameter of the compiler call. 

Output listings appear in the following order: source listing, 
error directory, attribute and reference list, object code. 



LO=0 None of the information that can be 

selected by A, O, S, or R is listed. Only 
error messages are listed. 

Listing options are listed on the file specified by the 
L option. 



SOURCE PROGRAM LISTING 

The source listing shows the source program compiled. Each 
source line appears as it exists on the file identified by the 
I parameter on the PLI control statement. Statements are 
numbered for correlation with any diagnostic messages. 
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An example of a source listing is shown in figure 13-1. The 
listing is divided into four parts, which contain the following 
information: 

STMT Indicates the number of the first source 

statement that begins on the line. 



STMT NO Indicates the source statement number in 
which, the error was detected. 



ERROR 
TEXT 



Provides the full text of the error 
message. 



BLK Indicates the level of block nesting for the 

statement. 

DO Indicates the level of do group nesting for 

the statement. 

SOURCE Indicates the source line. 

If the source statement is unrecognizable, an asterisk 
appears below the statement at the approximate point where 
the error was detected. The word ERROR appears in the 
left margin, and the message SYNTAX ERROR appears in 
the error directory. 



ERROR DIRECTORY 

Diagnostics listed during compilation are controlled by the 
EL parameter on the PLI control statement. An example of 
the error directory is shown in figure 13-2. 

The listing shows the following column headings: 

ERROR Is a 6-character sequence containing a 

NUMBER 3-character error code and a 3-digit 

number. The 3-character code can be one 

of the following: 

BIF Builtin function error 
CMP Compiler error 

CNV Conversion error 

DCL Declaration error 

EXP Expression error 

MSC Miscellaneous error 

REF Reference error 

SYN Syntax error 
SEVERITY Indicates severity of error as followst 

I Informational 

T Trivial 

W Warning 

F Fatal 



ATTRIBUTE AND REFERENCE LISTS 

The attribute and reference lists provide pertinent informa- 
tion concerning each identifier used in the source program. 
The attribute list supplies a complete set of attributes for 
the identifier, and the reference list indicates the source 
statements in which the identifier is referenced. Either or 
both lists can be selected for printing* 

An example of a combined attribute and reference list is 
shown in figure 13-3. The listing shows the following 
column headings: 



DCL AT 



IDENTIFIER 



IN PROC 



ATTRIBUTE 
AND REFER- 
ENCE LIST 



The number of the statement that 
makes the explicit declaration of the 
identifier. The character X indicates 
the identifier has the EXTERNAL 
attribute. The character - indicates 
the identifier has an implicit or con- 
textual declaration. 



The identifier used in the program or 
assumed by default for stream I/O 
(SYSIN and SYSPRINT). 

The name of the innermost internal 
procedure that contains the declara- 
tion. If no name appears^ the decla- 
ration is not contained in an internal 
procedure. 

The attribute list includes the com- 
plete set of attributes for the identi- 
fier. The reference list includes the 
number of each statement in which 
the identifier is ref erenced* 



Possible attributes and their meanings are listed in 
table 13-1. 



OBJECT CODE 

The object listing shows the generated object code instruc- 
tions. With few exceptions, the actual instruction for 
executable code appears. Data is generated through the use 
of macros as well as pseudo instructions; when macros are 
used, their names and parameters are listed along with the 
first word of generated code. An example of an object code 
listing is shown in figure 13-4. 
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EXT. POOC PASCAL 


Ti/Tt 


PASCAL 1 






STMT BLK 


00 


SOUPCE 


1 




PASCAL t 

PROCEDURE OPTIONSIMAINH 

/• This PROGRAM PRODUCES A SHALL PASCAl TRIANGLE AS OUTPUT. •/ 

/* ONE INPUT VALUE IS READ TO OETERMINF THE SIZE OF THF TRIANGLE. •/ 

/• DECLARATIONS. •/ 


2 1 




DECLARE R0WU5) FIXED DECIMAL(StO) INITIAL* (15I0M 


3 1 




GET LISTISIZEH 


4 1 




IF SIZE > 15 THEN SIZE ■ 151 
/• HEADER IS PRODUCED. •/ 


6 1 




PUT SKIP LIST<*PASCAL**S TRIANGLE SHOWING THE FIRST*. SIZE,* ROWS** I 
/• EXTRA LINE IS SKIPPED BETWEEN HEADER AND TRIANGLF ROWS. •/ 


7 1 




PUT SKIPI 


8 1 




ROWi»LOOP« 

/• ROMi»L00P GENERATES AND PRINTS EACH ROW OF THE TRIANGLE. •/ 
DO ITEMS ■ 1 TO SIZE! 

/• PERFORM ADDITIONS. FOR ONLY ONE ENTRY* LOOP Is SKIPPED. •/ 


9 1 


1 


00 ENTRY - ITEMS TO 2 BY -II 


10 1 


2 


ROW (ENTRY) » ROW(ENTRYI ♦ R0W<ENTRY-1) 1 


11 I 


2 


ENDI 

/• SET THE FIRST ENTRY TO 1. •/ 


12 1 


1 


R0WC1I ■ 11 

/• FIND NUMBER OF SPACES TO SKIP SO TRIANGLE LINES UP. •/ 


13 1 


1 


SLIDE*OVER > (SIZE - ITEMS* • 31 


14 1 


1 


PUT EDIT (IROWtENTRY) DO ENTRY * 1 TO ITEMS)) 
(SKIPt <SLIDE»0VER)X<1). (1S)F(6*0))I 


IS 1 


1 


END ROWoLOOPI 


16 1 




END PASCAL! 



Figure 13-1. Sample Source Listing 



EXT. PROC PASCAL 73/74 

PASCAL I 
ERROR NUMBER / SEVERITY / STMT MO / 



DCL024 F 

SYNOD i F 

REF0B2 F 

SVNOOt F 



3 

S 

12 

If 



ERROR TEXT 

SCALAR VARIABLE -FFF- CANNOT HAVE MULTIPLE INITIAL VALUES 

SYNTAX ERROR 

ASSIGNMENT-TARGET MUST BE SCALAR 

SYNTAX ERROR 



Figure 13-2. Sample Error Directory 





EXT. PROC PASCAL 


71/74 










PASCAL ! 












DCL AT 


/IDENTIFIER/IN 


PROC 


/ATToIBUTE AND REFERENCE LIST 


— 


ENTRY 




FIXFO. 
9 


BINARY 
10 10 


(15. 
10 


01 .AUTOMATIC. ALIGNED 


- 


ITEMS 




FIXFO. 

8 


BINARY 
9 13 


(IS* 


0>. AUTOMATIC, ALIGNED 


IX 


PASCAL 




ENTSY, 


C0NSTAN1 


. OPTS MAIN 


2 


ROW 




FIXFO. 
10 


DECIMAL 
10 10 


< 5. 
12 


0). INITIAL. ARRAY. AUTOMATIC, ALIGNED 


a 


ROWoLOOP 




LABFLt 

8 
FIXFO. 


CONSTANT 






. 


SIZE 




BINARY 


US* 


0) .AUTOMATIC. ALIGNED 








3 


4 5 


6 8 


13 


- 


SLIDEfOVER 




FIXFO. 

13 

FILF. 

3 

FILFf 


BINARY 


(15. 


0) .AUTOMATIC, ALIGNED 


-X 


SYS IN 




INPUT. 


STREAM 




-X 


SYSPRINT 




OUTPUT* 


PRINT. 


STREAM 








6 


7 







Figure 13-3. Sample Attribute and Reference List 
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TABLE 13-1. LIST OF ATTRIBUTES 



Attribute 


Definition 


ALIGNED 


The identifier is a variable with the ALIGNED attribute. 


AREA (size) f 


The identifier is an area variable. 


ARRAY 1 " 


The identifier is an array; it has the dimension attribute. 


AUTOMATIC 


The identifier is a variable with the automatic storage type. 


BASED 


The identifier is a variable with the based storage type. 


BINARY (p[,q]) 


The identifier is an arithmetic variable with a binary base; precision and 
scale factor are p and q. 


BIT (length)* 


The identifier is a bit string variable. 


BUILTIN 


The identifier is the name of a built in function. 


CHARACTER (length) + 


The identifier is a character string variable. 


CONDITION 


The identifier is a programmer-named condition. 


CONSTANT 


The identifier is a named constant. 


CTL 


The identifier is a variable with the controlled storage type. 


DECIMAL (pt.ql) 


The identifier is an arithmetic variable with a decimal base; precision and 
scale factor are p and q. 


DEFINED ON** 


The identifier is a variable with the defined storage type; the name of the 
host variable and the position (if one was specified) will follow. 


DIRECT 


The identifier is a direct access file. 


ENTRY 


The identifier is an entry constant or parameter. 


ENV 


The identifier has an ENVIRONMENT attribute. 


FILE 


The identifier is a file constant or parameter. 


FIXED 


The identifier is an arithmetic variable of fixed point scale. 


FLOAT 


The identifier is an arithmetic variable of floating point scale. 


FORMAT 


The identifier is a format constant. 


INITIAL 


The identifier has an initial value specified. 


INPUT 


The identifier is an input file. 


KEYED 


The identifier is a keyed file. 


LABEL 


The identifier is a label constant or variable. 


MEMBER ** 


The identifier is a member of a structure; the names of up to 20 containing 
structures will follow. 


OFFSET 


The identifier is an offset variable. 


OPTIONS (MAIN) 


The identifier is an entry name of a PROCEDURE statement with OPTIONS 
(MAM). 


OUTPUT 


The identifier is an output file. 


PARAMETER 


The identifier is a variable with the parameter storage type. 


PICTURE 


The identifier is a pictured variable. 


POINTER 


The identifier is a pointer variable. 
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TABLE 13-1. LIST OF ATTRIBUTES (Cont'd) 



Attribute 


Definition 


POS 


See DEFINED ON. 


PRINT 


The identifier is a print file. 


RECORD 


The identifier is a record file. 


RETURNS 


The identifier is a function entry constant or parameter. 


SEQL 


The identifier is a sequential file. 


STATIC 


The identifier is a variable with the static storage type. 


STREAM 


The identifier is a stream file. 


STRUCTURE 


The identifier is a structure variable; if it is a substructure, it also has the 
member attribute. 


UNALIGNED 


The identifier is a variable with the UNALIGNED attribute. 


UPDATE 


The identifier is an update file. 


VARYING 


The identifier is a string of varying length. 


♦ERROR 


The declaration of the identifier is in error. 


The extent associated with an AREA, BIT, or CHARACTER attribute is listed in parentheses following that attri- 
bute. If the extent was specified as an unsigned decimal integer, it will be listed; otherwise, the extent cannot be 
determined at compile time, and will be listed as a minus sign. Array extents do not appear in the attribute list. 


If the name of a containing structure or a host variable is longer than 8 characters, the printed name is modified 
to show the first 4 characters, a hyphen, and the last 3 characters. For example, VERYLONGNAME becomes 
VERY-AME. 



131 7070000052 








SX7 


A0*52B 




7060000023 








SX6 


A0+23B 




132 5110000062 


* 






SA1 


S100 




53670 








SA6 


X7 




133 0100000000 


<fXT> 






RJ 


PLLDIO+ 




134 












LINE 3 


134 0400000000 


<fXT> 






EQ 


PLLDXX* 




135 












LINE 3 


135 




GL. 


11 


BSS 







135 












LINE 4 


135 7170000004 








SX7 


4 




5070000016 








SA7 


A0+16B 




136 43000 








MX0 







5050000023 








SA5 


AO+238 




137 5140000014 


♦ 






SA4 


114 




37745 








1X7 


X4-X5 




36607 








1X6 


X0*X7 




140 03?6000143 


♦ 






PL 


X6.GL.12 


LINE 5 


7170000005 








SX7 


5 




141 5070000016 








SA7 


A0*16B 




5150000014 


♦ 






SA5 


114 




142 10755 








BX7 


X5 




5070000023 








SA7 


A0*23B 




143 




GL. 


12 


BSS 








Figure 13-4. Sample Object Code Listing 
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SAMPLE PROGRAMS 



14 



This section provides sample programs that are complete 
PL/I programs. Deck structure is shown for a PL/I program 
submitted on cards. Each sample program is explained, and 
the input cards and output listings for each sample program 
are shown. 

DECK STRUCTURE 

A job deck submitted for execution through a card reader 
begins with a job statement and ends with an end-of- 
information (EOQ statement that has a 6/7/8/9 multiple 
punch in column 1. Between the job statement and the EOI 
statement, the job deck is divided into sections separated by 
cards with a 7/8/9 multiple punch in column 1. 

If the job deck is submitted under NOS, the job deck has the 
following basic structure: 

job statement. 

USER control statement. 

CHARGE control statement, (if required) 

PLI control statement. 

LGO control statement. 

7/8/9 

PL/I source program statements 

7/8/9 
Input data 

6/7/8/9 

If the job deck is submitted under NOS/BE, the job deck has 
the following basic structure: 

job statement. 

ACCOUNT control statement, (if required) 

PLI control statement. 

LGO control statement. 

7/8/9 

PL/I source program statements 

7/8/9 
Input data 

6/7/8/9 

The appropriate operating system reference manuals 
describe the control statements necessary to direct other 
operations, in particular the use of permanent files or 
magnetic tape files. In the deck structures just shown, the 
input data is included in the job deck and is known by the 
local file name INPUT. Any program output written to the 
local file OUTPUT is printed at job termination unless a 
control statement indicates another disposition for the 
program output. 

SAMPLE PROGRAM PASCAL 

Program PASCAL creates a small Pascal's triangle that 
illustrates the numbers used in polynomial expansion. The 
size of the triangle is set by the single value read from the 
input data. Arbitrarily, the maximum size of the triangle is 
kept at 15 rows. 



The program consists of one main external procedure and no 
internal procedures. The program listing is shown in 
figure 14-1. 

Line 2 shows the only necessary DECLARE statement 
declaration. The elements in array ROW are initialized to 
zero. Various other variables used as counters in the 
program default to FDCED BINARY (15,0). 

Line 3 shows the input statement that reads the input value 
for the size of the triangle. Program input is shown in 
figure 14-2. Since GET LIST is used, the input value can 
appear at any position on the input card. The FILE(SYSIN) 
option is supplied by the compiler, and the GET LIST 
statement implicitly opens the file, using local file name 
INPUT. 

Lines 6 and 7 write an output header to the output file and 
skip an extra line after the header. Program output is shown 
in figure 14-3. The FILE(SYSPRINT) option is supplied by 
the compiler in both statements, and line 6 opens the output 
file implicitly with local file name OUTPUT. 

Lines 8 through 15 contain a do group that loops to produce 
each line of the triangle. Line 9 shows a nested do group 
where the increment on the index runs negative. Addi- 
tionally, the nested do group is set up so that the entire 
nested do group is skipped on the first pass through the 
containing do group. 

Line 13 shows the calculation used to produce the triangular 
shape of the output. The calculated value is used as the 
expression controlling the X format item in line 14. Note 
also that line 14 shows an embedded-do in the EDIT option 
of the PUT statement. 

SAMPLE PROGRAM TBINT 

Program TBINT calculates and prints amortization schedules 
from supplied input data. For each schedule, the amount 
borrowed, the annual percentage rate, the monthly payment 
amount, and the date of the first payment are supplied. 
Each line in the schedule lists the number of the month, the 
date of the payment, the amount to interest and total to 
interest, the amount to principal and total to principal, and 
the remaining balance. 

The program consists of one main external procedure and 
one internal procedure named REPORT. The program listing 
is shown in figure 14-4. 

Lines 2 through 6 shows declarations for the main external 
procedure. Note that START is declared as a structure. 
The members MON, DAY, and YEAR default to FKED 
BINARY (15,0). 

Line 7 shows an ON statement that establishes the action to 
be taken when the ENDFILE condition is raised for file 
SYSIN, automatically associated with local file name 
INPUT. The action is to go to label QUIT on the END 
statement for the main external procedure. 

Line 9 reads the next set of input values. Program input is 
shown in figure 14-5. Since GET LIST is used, the input 
values can appear at any positions on the input card but 
must appear in the correct order. The first execution of 
line 9 implicitly opens the input file SYSIN with local file 
name INPUT. 
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pascal: 
STMT 6LK DO 



3 

4 1 




6 1 




7 ] 




6 ] 




9 ] 
10 ] 
11 


1 
I 2 
I 2 


12 1 


1 


13 1 

14 ] 


1 
I 1 


15 ] 


1 


16 1 





SOURCE 

PASCAL: 

PROCEDURE OPT IONS (MAIN) I 

/• THIS PROGRAM PROOUCES A SMALL PASCAL TRIANGLE AS OUTPUT. •/ 

/» ONE INPUT VALUE IS READ TO DETERMINE THE SIZE OF THE TRIANGLE. •/ 

/» DECLARATIONS. •/ 

DECLARE R0W(15) FIXED DEC1MAL(5»0> INITIAL! ( 15) 0> I 

GET LIST (SIZE)* 

IF SIZE > 15 THEN SIZE = 151 

/« HEADER IS PRODOCEO. »/ 

PUT SKIP LIST (♦PASCAL*"^ TRIANGLE SHOWING THE FIRST+tSIZE,* ROWS*) J 

/• EXTRA LINE IS SKIPPED BETWEEN HEADER AND TRIANGLE HOWS. «/ 

PUT SKIP! 

ROWr»L0OP: 

/• ROWt»LOOP GENERATES AND PRINTS EACH ROW OF THE TRIANGLE. •/ 
00 ITEMS = 1 TO SIZE! 

/• PERFORM AOOITIONS. FOR ONLY ONE ENTRYt LOOP IS SKIPPEO. •/ 
00 ENTRY s ITEMS TO 2 BY -II 

ROW(ENTRY) = ROW(ENTRY) ♦ ROW (ENTRY-1 ) ! 
END I 

/« SET THE FIRST ENTRY TO 1. »/ 
ROW(l) = H 

/» FIND NUMBER OF SPACES TO SKIP SO TRIANGLE LINES UP. •/ 
SLIDE^OVER = (SIZE - ITEMS) * 31 
PUT EDIT ((ROW (ENTRY) UO ENTRY = 1 TO ITEMS)) 
(SKIP* (SLIDE^OVER)X(l). U5)F(6.0>)I 
END ROWr»LOOPI 

END PASCAL! 



Figure 14-1. Program PASCAL Listing 
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Figure 14-2. Program PASCAL Input 



PASCALtS TRIANGLE SHOWING THE FIRST 


1 


1 
1 




13 










ROWS 


1 




2 1 
















1 


3 


3 


1 














1 4 




6 4 




1 












1 5 


10 


10 


5 


1 












1 6 IS 




20 15 




6 


1 










1 7 21 


35 


35 


21 


7 




1 








1 8 28 56 




70 56 




28 


8 




1 






1 9 36 84 1 


126 


126 


84 


36 




9 




1 




1 10 45 120 210 


252 210 




120 


45 




10 




1 


1 11 55 165 330 462 


462 330 


165 




55 




11 


1 


1 12 66 220 495 792 


924 792 


49S 220 




66 




12 1 



Figure 14-3. Program PASCAL Output 
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TBINT 








STMT 


BLK DO 


SOURCE 




1 





TBINT: 

PROCEDURE OPTIONS(MAIN), 








/* THIS PROGRAM GENERATES ANO PRINTS AMORTIZATION SCHEDULES FROM •/ 






/• INFORMATION SUPPLIED ON EACH INPUT RECORD. •/ 








/• DECLARATIONS. •/ 




2 


1 


OECLARE AMOUNT FIXED DECIMAL (7,2) ; 




3 


1 


DECLARE RATE*APR FIXED DECIMAL(S*5> t 




4 


1 


OECLARE RATE»MONTHLY FIXED DECIMAL(S.S) t 




5 


1 


OECLARE PAYMENT FIXED DECIMAL (5t2> I 




6 


1 


DECLARE 1 START* 
2 MON. 
2 DAY* 
2 YEARI 

/• ENOFILE FOR THE INPUT FILE IS TAKEN CARE OF. •/ 




7 


1 


ON ENOFILE (SYSIN) GOTO QUIT! 




9 


1 


NEXToRECOROt 

/• GET NEXT INPUT RECORD. •/ 

GET LIST (AMOUNT* RATEi»APR* PAYMENT* HON* DAY* YEAR) 1 

/♦ VERIFY INPUT DATA READ. •/ 




10 


1 


PUT EDIT (♦ AMOUNT ♦♦ AMOUNT, tRATE ♦♦ RATEi»APH, 
♦PAYMENT ♦ . PAYMENT* 

♦OATE ♦» MON* ♦/♦» DAY* ♦/.♦• YEAR) 
(PAGE* A* P+SSS*SS9V.99+* SKIP* A* F(10*5>* 








SKIP* A* P«SSS9V.99+* SKIP* A* F(2)» A* F(2). A* 


F(2))l 






/• CHECK FOR LOAN AMOUNT GREATER THAN ZERO. •/ 




11 


1 


IF AMOUNT <> 0.00 THEN GOTO BAOi»RECORD» 
/• CALCULATE MONTHLY INTEREST RATE. •/ 




13 


1 


RATEi»MONTHLY « RATE(»APR / 12.00001 

/• CHECK FOR SUFFICIENT PAYMENT TO COVER THE INTEREST. •/ 




14 


1 


IF PAYMENT <« AMOUNT * RATEr»MONTHLY THEN GOTO BADoRECORDl 
/• CALL REPORT PROCEDURE. •/ 




16 


1 


GOTO PROOUCEi»REPORTI 




17 


1 


BADi»RECORD: 

/• PRODUCE A MESSAGE FOR THE BAD INPUT RECORO. •/ 
PUT SKIP(S) LIST (1-BAO INPUT RECORD DETECTED** 

♦AMORTIZATION SCHEOULE NOT PRODUCED*) J 




18 


1 


60T0 NEXTi»RECOR01 




19 


1 


PRODUCEi»REPORT : 

CALL REPORT (AMOUNT* RATEi»MONTHLY» PAYMENT. START) t 




20 
21 


1 
1 


GOTO NEXToRECORDI 




REPORT: 






PROCEDURE (BALANCE* RATE* MONTHLY* DATE)! 








/• THIS INTERNAL PROCEDURE CALCULATES AND PRINTS THE •/ 








/• AMORTIZATION SCHEOULE FROM THE SUPPLIEO INPUT OAT A. •/ 








/• RATE HAS BEEN CHANGED TO MONTHLY INTEREST RATE. •/ 








/• DECLARATIONS. •/ 




22 


2 


OECLARE BALANCE FIXED DECIMAL (7*2) 1 




23 


2 


OECLARE RATE FlXEO DECIMAL (5*5) 1 




24 


2 


OECLARE MONTHLY FIXEO DECIMAL (5.2) 1 




25 


2 


OECLARE 1 DATE* 
2 MM* 
2 DO* 
2 YYI 




26 


2 


OECLARE TO- INTEREST FIXED DECIMAL(S»2) INIT(0M 




27 


2 


OECLARE TOTAL* INTEREST FIXED DECIMAL (7*2) INIT(0)I 




28 


2 


DECLARE TOoPRINCIPAL FIXEO 0ECIMAL(5*2) INIT(Q>! 




29 


2 


DECLARE TOTALOPRINC1PAL FIXEO 0ECIMAL(7*2) INIT(0)» 




30 


2 


OECLARE MONTH 1NITIAL(0>I 





Figure 14-4. Program TBINT Listing (Sheet 1 of 2) 
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31 



32 



33 



34 


2 


1 


35 


2 


1 


36 


2 


2 


37 


2 


2 


38 


2 


2 


39 


2 


3 


40 


2 


3 


41 


2 


3 


42 


2 


2 


43 


2 




44 


2 




45 


2 




46 


2 




47 


2 




48 


2 


2 


49 


2 


2 


50 


2 


2 


51 


2 


1 


52 


2 


2 


53 


2 


2 



54 



55 


2 


2 


56 


2 


2 


57 


2 


2 



58 



59 

60 

61 



/• PRINT AMORTIZATION SCHEDULE HEADERS. •/ 

PUT SKIP(2) EDIT (♦TOTALS* ♦TOTALS ♦MONTHS^* ♦OUE DATE»» 
♦INTERESTS ♦INTEREST^. ♦PRINCIPAL** 
♦PRINCIPAL*. ♦BALANCE*) 
(COL(36).A.COL(60>.A»SKIP.A»COL(12>.A,COL(24>. 
A. COL (36). A. COL (48). A. COL (60) .A. COL (72). A) I 
NEXTr*MONTHJ 

/* CALCULATES THE NEXT ROW OF THE SCHEDULE. •/ 
DO WHILE ((BALANCE > 0.00) a (MONTH <* 360) ) I 

/• INCREMENT MONTH COUNTER. •/ 
MONTH a MONTH «ll 
/• INCREMENT CURRENT DATE. •/ 
IF MONTH > 1 
THEN DOt 

DATE. MM » DATE. MM 
IF CATE.MM > 12 
THEN OOt 

OATE.YY * 
DATE. MM * 
END I 
ENOt 



II 



OATE.YY ♦ II 
II 



/• CALCULATE INTEREST DUE ON CURRENT BALANCE. ACCUMULATE. »/ 
TOf»lNTEREST = BALANCE « RATEI 

TOT ALi» INTEREST « TOTALi»INTEREST ♦ TO«*INTERESTI 
/• CALCULATE AMOUNT OF PAYMENT AGAINST PRINCIPAL. •/ 
TO)*PRINCIPAL = MONTHLY - TOi»INTERESTI 

/* CHECK WhETHER PAYMENT IS SUFFICIENT TO CANCEL BALANCE. •/ 
IF TO'PRINCIPAL < BALANCE 
THEN DOt 

/• ACCUMULATE TOTAL PRINCIPAL AND ADJUST BALANCE. •/ 
TOTALfPRINCIPAL * TOTALoPRINCIPAL * TOoPRINCIPALt 
BALANCE * BALANCE - TOoPRINCIPAL t 
ENOt 
ELSE DOt 

/• ADJUST LAST PAYMENT TO COVER REMAINING BALANCE •/ 

/• AND INTEREST ON THE REMAINING BALANCE. •/ 

TO<*PRlNCIPAL * BALANCE! 

MONTHLY * TO.»PRINCIPAL ♦ TOi»INTERESTI 

/• WRITE MESSAGE FOR LAST PAYMENT. */ 

PUT EDIT <*LAST PAYMENT CALCULATED AS ♦.MONTHLY) 

(SKIP. A. P*SSS9V.99*)t 
/• ACCUMULATE TOTAL PRINCIPAL AND ZERO BALANCE. •/ 
TOTAC'PRINCIPAL » TOTALi»PRlNCIPAL ♦ TCPRIMCIPALI 
BALANCE > 0.001 
ENOt 
/• DISPLAY ROW AS CALCULATED. •/ 
PUT EDIT (MONTH. MM* ♦/♦. OD. ♦/♦. YY* TOoINTEREST. 

TOT ALi* INTEREST. TOi»PRINCIPAL. TOTALoPRINCIPAL* 
BALANCE) 

(SKIP. F<3>* COL (12). F(2)» A* F(2). A* F(2)» 
COL (24) • P+SSS9V.99+. COL (36). P+SSS.SS9V.99*. 
COL (48) t P+SSS9V.99*. COL(60). P*SSS»SS9V.99*« 
COL (72) • P+$S*.$$9V.99+)| 
END NEXT.»MONTHI 
/• END INTERNAL PROCEDURE. •/ 
END REPORT! 

OUIT: 

/• END MAIN EXTERNAL PROCEDURE. •/ 

ENO TBINTt 



Figure 14-4. Program TBINT Listing (Sheet 2 of 2) 



500.00 .18157 25.00 11 05 75 
1S00.00 .11000 10.00 2 02 74 
3000.00 .07500 93.56 4 15 72 



Figure 14-5. Program TBINT Siput 
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Line 10 verifies the input values by producing a header at 
the top of the next page of output. Program output is shown 
in figure 14-6. All values read in are written out. Lines 11 
through 14 then make some basic checks on the input values, 
either directing control to line 17 or line 19. If the input 
values are definitely invalid, a suitable message is written 
and control passes to line 9. If the input values seem valid, 
control passes to line 9 after the internal procedure has been 
called to produce the amortization schedule. 

Lines 21 through 60 contain the internal procedure REPORT. 

Lines 22 through 30 show the declarations for the REPORT 
procedure. The members MM, DD, and YY, and the variable 
MONTH default to FIXED BINARY (15,0). Lines 22 through 



25 declare the parameters passed to REPORT. Lines 26 | 
through 30 declare variables used only in the REPORT 
procedure. 

Lines 32 through 59 show a do group that loops to produce 
each line of the schedule. The do group is controlled by a 
WHILE option that terminates execution of the do group if 
the balance drops to zero or if the schedule has listed 
monthly calculations for a 30-year period, whichever comes 
first. 

Lines 33 through 42 show a sequence of nested but 
unbalanced IF statements used to increment the current 
date. The nested IF statements are unbalanced in the sense 
that no ELSE operations are shown. 



AMOUNT 


$500.00 












RATE 





.18157 












PAYMENT 


S25 


.00 












OATE 


11/ 


5/75 




TOTAL 




TOTAL 




MONTHS 


DUE 


DATE 


INTEREST 


INTEREST 


PRINCIPAL 


PRINCIPAL 


BALANCE 


1 


11/ 


5/75 


$7.56 


$7.56 


$17.44 


$17.44 


$482.56 


2 


12/ 


5/75 


$7.30 


$14.86 


$17.70 


$35.14 


$464.86 


3 


1/ 


5/76 


S7.03 


$21.89 


$17.97 


$53.11 


$446.89 


4 


2/ 


5/76 


S6.76 


$28.65 


$18.24 


$71.35 


$428.65 


5 


3/ 


5/76 


$6.48 


$35.13 


$18.52 


$89.87 


$410.13 


6 


4/ 


5/76 


$6.20 


$41.33 


$18.80 


$108.67 


$391.33 


7 


5/ 


5/76 


$5.92 


$47.25 


$19.08 


$127.75 


$372.25 


8 


6/ 


5/76 


$5.63 


$52.88 


$19.37 


$147.12 


$352.88 


9 


7/ 


5/76 


$5.33 


$58.21 


$19.67 


$166.79 


$333.21 


10 


8/ 


5/76 


$5.04 


$63.25 


$19.96 


$186.75 


$313.25 


11 


9/ 


5/76 


$4.73 


$67.98 


$20.27 


$207.02 


$292.98 


12 


10/ 


5/76 


$4.43 


$72.41 


$20.57 


$227.59 


$272.41 


13 


11/ 


5/76 


$4.12 


$76.53 


$20.88 


$248.47 


$251.53 


14 


12/ 


5/76 


$3.80 


$80.33 


$21.20 


$269.67 


$230.33 


IS 


1/ 


5/77 


$3.48 


$83.81 


$21.52 


$291.19 


$208.81 


16 


2/ 


5/77 


$3.15 


$86.96 


$21.85 


$313.04 


$186.96 


17 


3/ 


5/77 


$2.82 


$89.78 


$22.18 


$335.22 


$164.78 


18 


4/ 


5/77 


$2.49 


$92.27 


$22.51 


$357.73 


$142.27 


19 


5/ 


5/77 


$2.15 


$94.42 


$22.85 


$380.58 


$119.42 


20 


6/ 


5/77 


$1.80 


$96.22 


$23.20 


$403.78 


$96.22 


21 


7/ 


5/77 


$1.45 


$97.67 


$23.55 


$427.33 


$72.67 


22 


8/ 


5/77 


$1.09 


$98.76 


$23.91 


$451.24 


$48.76 


23 


9/ 


5/77 


$6.73 


$99.49 


$24.27 


$475.51 


$24.49 


LAST PAYMENT CALCULATED 


AS $24.86 










24 


10/ 


5/77 


$0.37 


$99.86 


$24.49 


$500.00 


$0.00 


AMOUNT 


$1*500.00 












RATE 





.11000 












PAYMENT 


S10 


.00 












OATE 


2/ 2/74 












8A0 INPUT 


RECORD DETECTED 




AMORTIZATION SCHEDULE 


NOT PRODUCED 



Figure 14-6. Program TBINT Output (Sheet 1 of 2) 
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14-5 



AMOUNT 


S3*000.00 












RATE 


0.07SOO 












PAYMENT 


$93.56 












DATE 


4/15/72 




TOTAL 




TOTAL 




MONTHS 


DUE DATE 


INTEREST 


INTEREST 


PRINCIPAL 


PRINCIPAL 


BALANCE 


1 


4/15/72 


$18.75 


$18.75 


$74.81 


$74.81 


$2,925.19 


2 


5/15/72 


$18.28 


$37.03 


$75.28 


$150.09 


$2,849.91 


3 


6/15/72 


$17.81 


$54.84 


$75.75 


$225.84 


S2.774.16 


4 


7/15/72 


$17.33 


$72.17 


$76.23 


$302.07 


$2*697.93 


5 


8/15/72 


$16.86 


$89.03 


$76.70 


$378.77 


$2,621.23 


6 


9/15/72 


$16.38 


$105.41 


$77.18 


$455.95 


$2,544.05 


7 


10/15/72 


$15.90 


$121.31 


$77.66 


$533.61 


$2,466.39 


8 


11/15/72 


$15.41 


$136.72 


$78.15 


$611.76 


$2,388.24 


9 


12/15/72 


$14.92 


$151.64 


$78.64 


$690.40 


$2,309.60 


10 


1/15/73 


$14.43 


$166.07 


$79.13 


$769.53 


$2,230.47 


11 


2/15/73 


$13.94 


$180.01 


$79.62 


$849.15 


$2,150.85 


12 


3/15/73 


$13.44 


$193.45 


$80.12 


$929.27 


$2*070.73 


13 


4/15/73 


$12.94 


$206.39 


$80.62 


$1,009.89 


$1*990.11 


14 


5/15/73 


$12.43 


$218.82 


$81.13 


$1,091.02 


$1.90».98 


15 


6/15/73 


$11.93 


$230.75 


$81.63 


$1,172.65 


$1*827.35 


16 


7/15/73 


$11.42 


$242.17 


$82.14 


$1,254.79 


$1*745.21 


17 


8/15/73 


$10.90 


$253.07 


$82.66 


$1,337.45 


$1*662.55 


18 


9/15/73 


$10.39 


$263.46 


$83.17 


$1,420.62 


$1*579.38 


19 


10/15/73 


$9.87 


$273.33 


$83.69 


$1*504.31 


$1*495.69 


20 


11/15/73 


$9.34 


$282.67 


$84.22 


$1,588.53 


$1,411.47 


21 


12/15/73 


$8.82 


$291.49 


$84 . 74 


$1*673.27 


$1,326.73 


22 


1/15/74 


$8.29 


$299.78 


$85.27 


$1,758.54 


$1,241.46 


23 


2/15/74 


$7.75 


$307.53 


S8S.81 


$1*844.35 


$1,155.65 


24 


3/15/74 


$7.22 


$314.75 


$86.34 


$1*930.69 


$1,069.31 


25 


4/15/74 


$6.68 


$321.43 


$86.88 


$2*017.57 


$982.43 


26 


5/15/74 


$6.14 


$327.57 


$87.42 


$2*104.99 


$895.01 


27 


6/15/74 


$5.59 


$333.16 


$87.97 


$2*192.96 


$807.04 


28 


7/15/74 


$5.04 


$338.20 


$88.52 


$2*281.48 


$718.52 


29 


8/15/74 


$4.49 


$342.69 


$89.07 


$2,370.55 


$629.45 


30 


9/15/74 


$3.93 


$346.62 


$89.63 


$2,460.18 


$539.82 


31 


10/15/74 


$3.37 


$349.99 


$90.19 


$2*550.37 


$449.63 


32 


11/15/74 


$2.81 


$352.80 


$90.75 


$2*641.12 


$358.88 


33 


12/15/74 


$2.24 


$355.04 


$91.32 


$2,732.44 


$267.56 


34 


1/15/75 


$1.67 


$356.71 


$91.89 


$2,624.33 


$175.67 


35 


2/15/75 


$1.09 


$357.80 


$92.47 


$2,916.80 


$83.20 


LAST PAYMENT CALCULATED 


AS $83.72 










36 


3/15/75 


$0.52 


$358.32 


$83.20 


$3*000.00 


$0.00 



Figure 14-6. Program TBINT Output (Sheet 2 of 2) 



Lines 46 through 57 show a balanced IF statement. Lines 47 
through 50 are the THEN operation that is performed for 
every month except the last month in the schedule. Lines 51 
through 57 are the ELSE operation that is performed for the 
last month. 

Line 58 prints the amortization schedule values just calcu- 
lated for the current line of the schedule. Control then 



passes back to line 32 for generation of the next line of the 
schedule, if any. 



Line 60 ends the internal procedure REPORT. Control 
returns to line 20 of the main external procedure. Line 20 
directs control to line 9 for a read of the next set of input 
values, if any. 
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STANDARD CHARACTER SETS 



CONTROL DATA operating systems offer the following 
variations of a basic character set: 

CDC 64-character set 
CDC 63-character set 
ASCII 64-character set 
ASCII 63-character set 

The set in use at a particular installation is specified when 
the operating system is installed. 

Depending on another installation option, the system 
assumes an input deck has been punched either in 026 or in 
029 mode (regardless of the character set in use). Under 



NOS/BE, the alternate mode can be specified by a 26 or 29 
punched in columns 79 and 80 of the job statement or any 
7/8/9 card. The specified mode remains in effect through- 
out the job unless it is reset by specification of the alternate 
mode on a subsequent 7/8/9 card. Under MOS, the alternate 
mode can be specified by a 26 or 29 punched in columns 79 
and 80 of any 6/7/9 card, as described above for a 
7/8/9 card. In addition, 026 mode can be specified by a card 
with 5/7/9 multipunched in column 1; 029 mode can be 
specified by a card with 5/7/9 multipunched in column 1 and 
a 9 punched in column 2. 

Graphic character representation on a terminal or printer 
depends on the installation character set and the terminal 
type. Characters shown in the CDC Graphic column of the 
standard character set table are applicable to BCD ter- 
minals; ASCII graphic characters are applicable to 
ASCII-CRT and ASCII-TTY terminals. 
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PL/I AND STANDARD CHARACTER SETS 





Display 


CDC 


ASCII 




Hollerith 


External 








PL/I 


Code 


Graphic 


Punch 


BCD 


Graphic 


Punch 


Code 




(octal) 




(026) 


Code 


Subset 


(029) 


(octal) 


: (colon) 


00* 


: (colon) '^ 


8-2 


00 


: (colon) t* 


8-2 


072 


A 


01 


A 


12-1 


61 


A 


12-1 


101 


B 


02 


B 


12-2 


62 


B 


12-2 


102 


C 


03 


C 


12-3 


63 


C 


12-3 


103 


D 


04 


D 


12-4 


64 


D 


12-4 


104 


E 


05 


E 


12-5 


65 


E 


12-5 


105 


F 


06 


F 


12-6 


66 


F 


12-6 


106 


G 


07 


G 


12-7 


67 


G 


12-7 


107 


H 


10 


H 


12-8 


70 


H 


12-8 


110 


1 


11 


1 


12-9 


71 


I 


12-9 


111 


J 


12 


J 


11-1 


41 


J 


11-1 


112 


K 


13 


K 


11-2 


42 


K 


11-2 


113 


L 


14 


L 


11-3 


43 


L 


11-3 


114 


M 


15 


M 


11-4 


44 


M 


11-4 


115 


N 


16 


N 


11-5 


45 


N 


11-5 


116 





17 


O 


11-6 


46 





11-6 


117 


P 


20 


P 


11-7 


47 


P 


11-7 


120 


Q 


21 


Q 


11-8 


50 


Q 


11-8 


121 


R 


22 


R 


11-9 


51 


R 


11-9 


122 


S 


23 


S 


0-2 


22 


S 


0-2 


123 


T 


24 


T 


0-3 


23 


T 


0-3 


124 


U 


25 


U 


0-4 


24 


U 


04 


125 


V 


26 


V 


OS 


25 


V 


06 


126 


w 


27 


w 


0-6 


26 


w 


0-6 


127 


X 


30 


X 


0-7 


27 


X 


0-7 


130 


Y 


31 


Y 


08 


30 


Y 


0-8 


131 


z 


32 


z 


0-9 


31 


z 


0-9 


132 





33 








12 








060 


1 


34 


1 


1 


01 


1 


1 


061 


2 


35 


2 


2 


02 


2 


2 


062 


3 


36 


3 


3 


03 


3 


3 


063 


4 


37 


4 


4 


04 


4 


4 


064 


5 


40 


5 


5 


05 


5 


5 


065 


6 


41 


6 


6 


06 


6 


6 


066 


7 


42 


7 


7 


07 


7 


7 


067 


8 


43 


8 


8 


10 


8 


8 


070 


9 


44 


9 


9 


11 


9 


9 


071 


+ 


45 


+ 


12 


60 


+ 


12-8-6 


053 


£ 


46 


* 


11 


40 


— 


11 


055 




47 


11-8-4 


54 


♦ 


11-8-4 


052 


/' 


50 


/ 


0-1 


21 


/ 


0-1 


057 


51 


( 


0-8-4 


34 


( 


12-8-5 


050 


) 


52 


) 


12-8-4 


74 


) 


11-8-5 


051 


S 


53 


$ 


11-8-3 


53 


$ 


11-8-3 


044 


= 


54 


= 


8-3 


13 


= 


8-6 


075 


blank 


55 


blank 


no punch 


20 


blank 


no punch 


040 


, (comma) 


56 


, (comma) 


OS-3 


33 


, (comma) 


0-8-3 


054 


. (period) 


57 


. (period) 


12-8-3 


73 


. (period) 


12-8-3 


056 


# 


60 


= 


M-6 


36 


f 


8-3 


043 


f 


61 


[ 


8-7 


17 


C 


12-8-2 


133 


1 


62 


].. 


0*2 


32 


1 


11-8-2 


135 


% 


63 


%tt 


8-6 


16 


%" 


0-8-4 


045 


" (quote) 


64 


* 


8-4 


14 


" (quote) 


8-7 


042 


(underline) 


65 


r-* 


06-5 


35 


(underline) 


O" 8 ' 5 ++♦ 


137 


"" 1 


66 


V 


11-0 or 11-8-2 1tt 


52 


1 


12-8-7 or 11-0 TTT 


041 


& 


67 


A 


0-8-7 


37 


& 


12 


046 


" (apostrophe) 


70 


t 


11-8-5 


65 


' (apostrophe) 


8-5 


047 


? 


71 


» 


11-8-6 +++ 


56 


? 


°* 7 ++♦ 


077 


< 


72 


< 


12-0 or 12-8-2 m 


72 


< 


12-8-4 or 12-0 TTT 


074 


> 


73 


> 


11-8-7 


57 


> 


04-6 


076 


@ 


74 


< 


8-5 


15 


@ 


8-4 


100 


\ 


75 


> 


12-8-5 


75 


\ 


0-8-2 


134 


-i 


76 


-n 


12-8-6 


76 


— (circumflex) 


11-8-7 


136 


; (semicolon) 


77 


; (semicolon) 


12-8-7 


77 


; (semicolon) 


11-8-6 


073 


Twelve zero bits at the end of a 60-bit word in a zero byte record are an end of record mark r 


ather than two col 


ons. 


T^ln installations using a 63-graphic set, display code 00 has no associated graphic or card code; displi 


ly code 63 is the cc 


>lon (8-2 punch). 


The % graphic and related card codes do not exist and translations yield a blank (55g). 






ttt The alternate Hollerith (026) and ASCI 1 (029) punches are accepted for input only. 







A-2 



60388100 A 







CDC CHARACTER SET 


■ " 










COLLATING SEQUENCE 








Collating 








Collating 








Sequence 


CDC 


Display 


External 


Sequence 


CDC 


Display 


External 


Decimal/Octal 


Graphic 


Code 


BCD 


Decimal/Octal 


Graphic 


Code 


BCD 


00 00 


blank 


55 


20 


32 40 


H 


10 


70 


01 01 


< 


74 


15 


33 41 


1 


11 


71 


02 02 


%t 


63 t 


16t 


34 42 


V 


66 


52 


03 03 


[ 


61 


17 


35 43 


J 


12 


41 


04 04 


r* 


65 


35 


36 44 


K 


13 


42 


05 05 


= 


60 


36 


37 45 


L 


14 


43 


06 06 


A 


67 


37 


38 46 


M 


15 


44 


07 07 


f 


70 


55 


39 47 


N 


16 


45 


08 10 


i 


71 


56 


40 50 


O 


17 


46 


09 11 


> 


73 


57 


41 51 


P 


20 


47 


10 12 


> 


75 


75 


42 52 


Q 


21 


50 


11 13 


— I 


76 


76 


43 53 


R 


22 


51 


12 14 


. 


57 


73 


44 54 


] 


62 


32 


13 15 


) 


52 


74 


45 55 


S 


23 


22 


14 16 


r 


77 


77 


46 56 


T 


24 


23 


15 17 


+ 


45 


60 


47 57 


U 


25 


24 


16 20 


$ 


53 


53 


48 60 


V 


26 


25 


17 21 


• 


47 


54 


49 61 


w 


27 


26 


18 22 


- ■ 


46 


40 


50 62 


X 


30 


27 


19 23 


/ 


50 


21 


51 63 


Y 


31 


30 


20 24 


t 


56 


33 


52 64 


z 


32 


31 


21 25 


( 


51 


34 


53 65 


\. 


00 t 


nonef 


22 26 


= 


54 


13 


54 66 





33 


12 


23 27 


# 


64 


14 


55 67 


1 


34 


01 


24 30 


< 


72 


72 


56 70 


2 


35 


02 


25 31 


A 


01 


61 


57 71 


3 


36 


03 


26 32 


B 


02 


62 


58 72 


4 


37 


04 


27 33 


C 


03 


63 


59 73 


5 


40 


05 


28 34 


D 


04 


64 


60 74 


6 


41 


06 


29 35 


E 


05 


65 


61 75 


7 


42 


07 


30 36 


F 


06 


66 


62 76 


8 


43 


10 


31 37 


G 


07 


67 


63 77 


9 


44 


11 


fin installations 


using the 63- 


graphic set, the % graphic does not exist 


md position 


02 is skippe 


i in the 


sequence. The 


: graphic is d 


isplay code 63, External BCD code 16. 
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ASCII CHARACTER SET 












COLLATING SEQUENCE 








Collating 

Sequence 

Decimal/Octal 


ASCII 
Graphic 
Subset 


Display 
Code 


ASCII 
Code 


Collating 

Sequence 

Decimal/Octal 


ASCII 

Graphic 

Subset 


Display 
Code 


ASCII 
Code 


00 00 


blank 


55 


20 


32 40 


@ 


74 


40 


01 01 


! 


66 


21 


33 41 


A 


01 


41 


02 02 


tr 


64 


22 


34 42 


B 


02 


42 


03 03 


# 


60 


23 


35 43 


C 


03 


43 


04 04 


$ 


53 


24 


36 44 


D 


04 


44 


05 05 


%t 


63f 


25 


37 45 


E 


05 


45 


06 06 


& 


67 


26 


38 46 


F 


06 


46 


07 07 


/ 


70 


27 


39 47 


G 


07 


47 


08 10 


( 


51 


28 


40 50 


H 


10 


48 


09 11 


) 


52 


29 


41 51 


I 


11 


49 


10 12 


* 


47 


2A 


42 52 


J 


12 


4A 


11 13 


+ 


45 


2B 


43 53 


K 


13 


4B 


12 14 




56 


2C 


44 54 


L 


14 


4C 


13 15 


_ 


46 


2D 


45 55 


M 


15 


4D 


14 16 




57 


2E 


46 56 


N 


16 


4E 


15 17 


7 


50 


2F 


47 57 





17 


4F 


16 20 





33 


30 


48 , 60 


P 


20 


50 


17 21 


1 


34 


31 


49 61 


Q 


21 


51 


18 22 


2 


35 


32 


50 62 


R 


22 


52 


19 23 


3 


36 


33 


51 63 


S 


23 


53 


20 24 


4 


37 


34 


52 64 


T 


24 


54 


21 25 


5 


40 


35 


53 65 


U 


25 


55 


22 26 


6 


41 


36 


54 66 


V 


26 


56 


23 27 


7 


42 


37 


55 67 


w 


27 


57 


24 30 


8 


43 


38 


56 70 


X 


30 


58 


25 31 


9 


44 


39 


57 71 


Y 


31 


59 


26 32 




oot 


3A 


58 72 


z 


32 


5A 


27 33 


t 


77 


3B 


59 73 


[ 


61 


5B 


28 34 


< 


72 


3C 


60 74 


\ 


75 


5C 


29 35 


= 


54 


3D 


61 75 


] 


62 


5D 


30 36 


> 


73 


3E 


62 76 


.•s. 


76 


5E 


31 37 


? 


71 


3F 


63 77 


- 


65 


5F 


fin installatio 


ns using a € 


3-graphic set, the % graphic does n< 


>t exist and 


Dosition 05 


is 


skipped in th 


e sequence. 


The : graphic is display code 63. 









A-4 



60388100 A 



DIAGNOSTIC MESSAGES 



B 



Diagnostic messages are messages that are intended to 
provide information, usually about a program error. The 
following types of diagnostic messages are produced as 
appropriate: 

• Dayfile messages, including diagnostic messages for 
control statement errors 

• Compile-time messages produced when program errors 
are diagnosed during program compilation 

• Run-time messages produced when program errors are 
diagnosed during program execution 



DAYFILE MESSAGES 

The dayfile messages are written to the user dayfile for the 
job. The user dayfile provides a record of activity for the 
job and is printed at the end of the job listing. The messages 
that can be written to the dayfile are: 

• Messages indicating counts of fatal and nonfatal 
compile-time diagnostics for each external procedure. 

• Messages from CYBER Record Manager (CRM) indi- 
cating CRM errors. 

• Messages issued at run time if the file SYSPRINT is not 
available for run-time diagnostics. 

• Compiler error message issued if the compiler is 
probably unable to continue compilation: 

PASS n COMPILER ERROR 

Any compiler error message should be reported to a 
systems analyst. Compile-time diagnostics (type CMP) 
are also produced. 

• Message indicating that a particular part of the 
compiler cannot be loaded: 

LDV ERROR 0004 
CANT LOAD PLIln. 

If this message appears, increase field length and retry. 
If the message still appears, report the problem to a 
systems analyst. 

• Message indicating a memory overflow: 

MEMORY OVERFLOW IN CODE TRANSFORMER. 
MEMORY OVERFLOW IN END PROCESSOR. 

MEMORY OVERFLOW IN INTERNAL ASSEMBLER. 

If one of these messages appears, increase field length 
and retry. If the message still appears, report to a 
systems analyst. 

• Message indicating that the input file containing the 
program to be compiled cannot be found. A message of 
this type indicates that the input file does not exist or 
must be rewound: 

INPUT FILE EMPTY OR MISPOSITIONED. 



• Message indicating insufficient field length for the 
compiler: 

PLI NEEDS AT LEAST 56000B CM FL. 

Increase the field length as indicated. 

• Message indicating a compiler time limit or a mode 
error, either during compilation or execution. 

• Message produced by the system on-unit for the 
ERROR condition: 

+++++ ERROR CONDITION RAISED WITH 
ONCODE=nnnn 

Note that many other system on-units take action to 
raise the ERROR condition. 

• Message produced as a result of abnormal program 
termination, either because of STOP statement execu- 
tion or a program abort: 

TERMINATED AT STMT nnn IN procedure 

• Message indicating central processor (CP) time and 
central memory (CM) used for program compilation. 

• Message indicating CP time and CM used for program 
execution. 

• Message indicating LGO (or the name of the file 
specified by the B parameter) if the GO parameter is 
specified and the binary output file is executed. 

• Messages indicating control statement errors. Messages 
are produced for unrecognized parameters and for 
incorrectly specified options. The control statement 
diagnostic messages are listed in table B-l. 

COMPILE-TIME DIAGNOSTIC MESSAGES 

The compile-time diagnostic messages are issued for pro- 
gram errors and for potential program errors. Compile-time 
diagnostics are written to the files specified by the E and L 
parameters of the PLI control statement, as described in 
section 13, Compilation. 

Each compile-time diagnostic has an identifying prefix that 
includes a 3-character category and a 3-digit number. The 
3-digit number uniquely identifies a message in a particular 
category. The categories are: 

BIF Builtin function errors 



CMP 


Compiler errors 


CNV 


Conversion errors 


DCL 


Declaration errors 


EXP 


Expression errors 


FNI 


Feature not implemented errors 


MSC 


Miscellaneous errors 


REF 


Reference errors 


SYN 


Syntax errors 
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TABLE B-l. CONTROL STATEMENT DIAGNOSTICS 



Message 


Significance 


Programmer Action 


parameter IS UNRECOGNIZABLE — 
IGNORED 


Unknown specification is ignored. 


Correct as appropriate. 


parameter MAY NOT BE 
EQUIVALENCED 


Any option is illegal for the parameter. 
Compilation is terminated and control 
passes to the next appropriate EXIT 
control statement. 


Correct error. 


parameter MAY ONLY BE 
EQUIVALENCE TO 0— IGNORED 


Any option other than is illegal. The 
parameter is considered unspecified. 


Correct as appropriate. 


lfn IS AN ILLEGAL FILE NAME 


Probably an illegal character in the 
file name. Compilation is terminated 
and control passes to the next 
appropriate EXIT control statement. 


Correct error. 


lfn IS MORE THAN 7 CHARACTERS- 
EXCESS IGNORED 


First seven characters specified are 
used. 


Correct as appropriate. 


**NO COMPILATION. 


Compilation is terminated. Control 
passes to the next appropriate EXIT 
control statement. 


See other messages. 


**PLI CONTROL CARD ERRORS. 


One or more control statement errors 
have been detected. 


See other messages. 


=WITH JO FOLLOWING VALUE- 
IGNORED 


The parameter is considered unspecified. 


Correct as appropriate. 


B=0 AND GO IS INCONSISTENT 


The specified parameters conflict. 
Compilation is terminated and control 
passes to the next appropriate EXIT 
control statement. 


Correct error. 


COL MUST BE COL=NN/MMM 


At least the nn and mmm options must be 
present and separated with a slash. The 
parameter is considered unspecified. 


Correct as appropriate. 


EL=0 ILLEGAL— IGNORED 


Illegal option for the EL parameter. 
The parameter is considered unspecified. 


Correct as appropriate. 


ERROR IN COL LIMITS, IGNORED 


The specified nn and mmm options are not 
reasonable. The parameter is considered 
unspecified. 


Correct as appropriate. 


ILLEGAL DB OPTION— IGNORED 


Illegal option for the DB parameter. 
The parameter is considered unspecified. 


Correct as appropriate. 


ILLEGAL EL LEVEL— IGNORED 


Illegal option for the EL parameter. 
The parameter is considered unspecified. 


Correct as appropriate. 


ILLEGAL ET LEVEL— IGNORED 


Illegal option for the ET parameter. 
The parameter is considered unspecified. 


Correct as appropriate. 


ILLEGAL LO OPTION— IGNORED 


Illegal option for the LO parameter. 
The option is considered unspecified. 
Any other specified options are used. 
For example, LO=A/G/S is treated as 
L0=A/S. 


Correct as appropriate. 


INPUT FILE MAY NOT BE 
SUPPRE S SED— IGNORED 


Illegal option for the I parameter. The 
parameter is treated as unspecified. 


Correct as appropriate. 


INVALID NUMERIC FIELD IN PS 
ARGUMENT— IGNORED 


Illegal option for the PS parameter. 
The parameter is treated as unspecified. 


Correct as appropriate. 
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TABLE B-l. CONTROL STATEMENT DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


MISSING NUMERIC FIELD IN PS 


Unsupplied option for the PS parameter. 


Correct as appropriate. 


ARGUMENT— IGNORED 


The parameter is considered unspecified. 




PD ARGUMENT NOT 6 OR 8~ 


Illegal value for the PD parameter. The 


Correct as appropriate. 


IGNORED 


parameter is considered unspecified. 




PS .LT. 4— IGNORED 


Illegal value for the PS parameter. The 
parameter is considered unspecified. 


Correct as appropriate. 


THIRD COL VALUE OUT OF RANGE, 


Third value for the COL parameter is not 


Correct as appropriate. 


IGNORED 


valid. Third value is considered 
unspecified. 




THIRD COL VALUE WITHIN THE 


Third value is not outside the nn and 


Correct as appropriate. 


FIRST TWO—IGNORED 


mmm limits. Third value is considered 
unspecified. 




WARNING— TERMINATOR MISSING 


The . or ) is missing at the end of the 
control statement. 


Correct error. 



A compile-time diagnostic is issued for each detected 
error in the source program. Note that an error can cause 
other errors to remain undetected. Note also that an 
error can cause additional diagnostics to be issued for 
subsequent statements that would otherwise be correct. 



Some errors in declarations are diagnosed only when the 
improperly declared identifiers are referenced. There 
might not be a message for the erroneous DECLARE 
statement. 



The compile-time diagnostic messages are listed in 
table B-2. The appearance of -identifier- in a message in 
the table indicates that the identifier is inserted into the 
message if the identifier is known when the message is 
produced. 



RUN-TIME DIAGNOSTIC MESSAGES 



The run-time diagnostic messages are issued for program 
errors and for unusual conditions that occur during 
program execution. Run-time diagnostic messages are 
written to a file or to the dayfile. File SYSPRINT is used 
if there is an external file constant named SYSPRINT 
which is open, or can be opened for stream output, and its 
line size is at least 45. 



The CRM file OUTPUT is used if SYSPRINT cannot be 
used; if it is not already being used by the PL/I program; 
it is open, or can be opened for stream output; and its line 
size is at least 45. If OUTPUT is used for run-time 
diagnostics, it is no longer available to the PL/I program. 



If neither SYSPRINT nor OUTPUT can be used for 
run-time diagnostics, the dayfile is used. 



For each error or unusual condition that occurs during 
program execution, a condition is raised with a specific 
ONCODE value. The ONCODE values associated with 
each condition are: 

AREA 360-362 

CONDITION 500 

CONVERSION 600-625 

ENDFILE 70-72 

ENDPAGE 90 

ERROR 3, 9, 1000-9999 

FINISH 4 

FIXEDOVERFLOW 310-313 

KEY 50-57 

OVERFLOW 300-307 

RECORD 20-25 

SIZE 340-343 

STORAGE 370-379 

STRINGRANGE 350-352 

SUBSCRIPTRANGE 520-523 

TRANSMIT 40-44 

UNDEFINEDFILE 80-89, 91-92 

UNDERFLOW 330-337 

ZERODIVIDE 320-321 
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ON statements in the program can specify whether the 
system on-unit or a programmed on-unit is to be executed 
when a specific condition is raised. The production of 
snap output is also specified by the ON statements in the 
program. The production of the run-time diagnostic 
message and the snap output is determined by the current 
established on-unit in the following way: 

• System on-unit without SNAP option: the diagnostic 
is produced, unless the condition is ENDPAGE or 
FINISH, in which case no diagnostic is produced. 

• System on-unit with SNAP option: the diagnostic and 
snap output are produced, unless the condition is 
ENDPAGE or FINISH, in which case only the snap 
output is produced. 



• Programmed on-unit without SNAP option: 
diagnostic or snap output is produced^ 



no 



• Programmed on-unit with SNAP option: no diagnostic 
is produced, but the snap output is produced. 



No on-unit established by ON statement execution: 
system on-unit without SNAP option, except for the 
ERROR condition. For the ERROR condition, the 
system on-unit produces snap output. Many other 
system on-units take action to raise the ERROR 
condition, in which case ERROR is raised with the 
ONCODE value belonging to the original condition 
that was raised. 



The run-time diagnostic messages are listed by ONCODE 
value in table B-3. The appearance of -number- in a 
message in the table indicates that the number is inserted 
into the message. 



TABLE B^-2. COMPERE-TIME: DIAGNOSTICS 



Message 



Message 
Code 



BIF001 



BIF003 



BIF005 



BIF006 



BIF009 



BIF011 



BIF012 



BIF015 



CMPnnn 



Severity 



Message Text 



WRONG NUMBER OF ARGUMENTS TO 
-identifier- BUILTIN FUNCTION 

IMPROPER ARGUMENT -identifier- 
TO -identifer- BUILTIN FUNCTION 

ARGUMENT -identifier- TO 
-identifier- MATH BUILTIN 
FUNCTION MUST BE SCALAR 

ARGUMENT -identifier- TO 
-identifier- MATH BUILTIN 
FUNCTION MUST BE OF 
COMPUTATIONAL TYPE- 
ARGUMENT -identifier- TO VALID 
BUILTIN FUNCTION MOST BE 
PICTURED 

PRECISION P IN -identifier- 
BUILTIN FUNCTION CANNOT BE 
SIGNED OR ZERO 

PRECISION P OR SCALE FACTOR Q IN 
-identifier- BUILTIN FUNCTION 
MUST BE AN INTEGER 

-identifier- BUILTIN FUNCTION 
CANNOT BE USED AS SUBROUTINE- 
REFERENCE IN CALL STATEMENT 

Any message text 



Significance 



As stated. 



Argument has wrong data type 
or wrong aggregate type. 

As stated. 



As stated. 



As stated. 



As stated. 



As stated. 



As stated. 



Compiler error. The text of 
the message is not necessar- 
ily meaningful to the user. 
An error occurred in the 
compiler, and the compiler is 
probably unable to continue 
compilation of the source 
program. 



Programmer Action 



Correet error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



If the program has other 
compilation errors, fix 
those errors and then 
retry. If the message 
persists, report the 
problem to a systems 
analyst. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


CNV001 


F 


OPERAND -identifier- MUST BE 
COMPUTATIONAL TYPE 


All operands in an expression 
must be computational, except 
that locator values can be 
compared for equality. 


Correct error. 


CNV002 


F 


VALUE ASSIGNED TO PICTURED 
VARIABLE -identifier- MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV003 


F 


VALUE ASSIGNED TO ARITHMETIC 
VARIABLE -identifier- MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV004 


F 


VALUE ASSIGNED TO BIT VARIABLE 
-identifier- MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV005 


F 


VALUE ASSIGNED TO CHARACTER 
VARIABLE -identifier- MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV006 


F 


VALUE ASSIGNED TO AREA VARIABLE 
-identifier- MUST BE AN AREA 
VALUE 


As stated. 


Correct error. 


CNV007 


F 


VALUE ASSIGNED TO LOCATOR 
VARIABLE -identifier- MUST BE A 
LOCATOR VALUE 


As stated. 


Correct error. 


CNV008 


F 


VALUE ASSIGNED TO LABEL VARIABLE 
-identifier- MUST BE A LABEL 
VALUE 


As stated. 


Correct error. 


CNV009 


F 


SUBSCRIPT OR EXTENT -identifier- 
MUST BE SCALAR AND OF 
COMPUTATIONAL TYPE 


The statement contains a 
noncomputational or nonscalar 
subscript in a reference or 
expression, or the statement 
contains a reference to a 
controlled, based, or defined 
variable whose declaration 
contains a noncomputational 
or nonscalar extent or 
subscript. 


Correct error. 


CNV010 


F 


DECLARATION OF -identifier-: 
REFER OPTION VARIABLE 
-identifier- MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV011 


F 


WHILE-EXPRESSION MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV012 


F 


TO-EXPRESSION MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV013 


F 


BY-EXPRESSION MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV014 


F 


EXPRESSION IN IF STATEMENT MUST 
BE OF COMPUTATIONAL TYPE 


As stated. 


Correct error. 


CNV015 


F 


ARGUMENT -identifier- PASSED TO 
ENTRY PARAMETER MUST BE AN ENTRY 
VALUE 


As stated. Argument might be 
a structure that has no data 
type. 


Correct error. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 



Message 
Code 



Severity 



Message Text 



Significance 



Programmer Action 



CNV016 



CNV017 



CNV018 



CNV019 



CNV020 



CNV021 



CNV022 



CNV023 



CNV024 



CNV025 



CNV026 
CNV027 
CNV028 

CNV029 
CNV030 



w 
w 

F 



ARGUMENT -identifier- PASSED TO 
ARITHMETIC PARAMETER MUST BE OF 
COMPUTATIONAL TYPE 

ARGUMENT -identifier- PASSED TO 
CHARACTER PARAMETER MUST BE OF 
COMPUTATIONAL TYPE 

ARGUMENT -identifier- PASSED TO 
BIT PARAMETER MUST BE OF 
COMPUTATIONAL TYPE 

ARGUMENT -identifier- PASSED TO 
LABEL PARAMETER MUST BE A 
LABEL VALUE 

ARGUMENT -identifier- PASSED TO 
LOCATOR PARAMETER MUST BE A 
LOCATOR VALUE 

ARGUMENT -identifier- PASSED TO 
AREA PARAMETER MUST BE AN AREA 
VALUE 

STRUCTURE OF ARGUMENT 
-identifier- MUST MATCH STRUCTURE 
OF PARAMETER 



ARGUMENT -identifier- PASSED TO 
SCALAR PARAMETER MUST BE SCALAR 

RETURN-VALUE CANNOT BE CONVERTED 
TO TYPE SPECIFIED BY ANY 
RETURNS-DESCRIPTOR 



RETURN-VALUE CANNOT BE CONVERTED 
TO TYPE SPECIFIED BY RETURNS- 
DESCRIPTOR OF AT LEAST ONE ENTRY 



CONSTANT IS COMPILED AS ZERO 

CONSTANT IS COMPILED AS INFINITE 

I/O EXPRESSION OR REFERENCE 
-identifier- MUST BE OF 
COMPUTATIONAL TYPE 

ARGUMENT -identifier- PASSED TO 
FILE PARAMETER MUST BE A FILE 
VALUE 

DECLARATION OF -identifier-: 
EXTENT -identifier- MUST BE 
SCALAR AND OF COMPUTATIONAL TYPE 



As stated. Argument might be 
a structure that has no data 
type. 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. Argument might be 
a structure that has no data 
type. 

Argument and parameter must be 
structures with the same 
aggregate type, and with 
corresponding alignment and 
data types for the members. 

Argument cannot be an array or 
structure. 

The innermost containing 
procedure block does not have 
any entry point with a returns 
descriptor that is compatible 
with the data type of the 
return-value in the RETURN 
statement . 

Unless the return-value in the 
RETURN statement is returned 
during an activation invoked 
through a compatible entry 
point, the ERROR condition is 
raised. 

As stated. 

As stated. 

The error is in a statement 
option or format 

snoci fi psfi rm . 
— r 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct the RETURN 
statement, or modify at 
least one returns 
descriptor in the 
immediately containing 
procedure. 



Correct as appropriate. 



Correct as appropriate. 
Correct as appropriate. 
Correct error. 

Correct error. 

Correct error. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 



Message 
Code 



Severity 



CNV031 



CNV032 



CNV033 



CNV034 



CNV035 



DCL001 



DCL002 



DCL003 



DCL004 



DCL005 



DCL006 



Message Text 



VALUE OF LOCATOR MUST BE SCALAR 
AND LOCATOR 



ARITHMETIC OPERATION OR 
CONVERSION GENERATES ILLEGAL 
PRECISION 



ARGUMENT -identifier- PASSED TO 
PICTURED PARAMETER MUST BE OF 
COMPUTATIONAL TYPE 

EXPRESSION IN KEY OR KEYFROM 
OPTION MUST BE SCALAR AND OF 
COMPUTATIONAL TYPE 

EXPRESSION IN IGNORE OPTION MUST 
BE SCALAR AND OF COMPUTATIONAL 
TYPE 

ENVIRONMENT ATTRIBUTE IN 
DECLARATION OF -identifier- MUST 
CONTAIN A CHARACTER CONSTANT 



DECLARATION OF -identifier-: 
VARIABLE -identifier- IN REFER 
OPTION MUST BE A PRECEDING MEMBER 
OF SAME STRUCTURE 



DECLARATION OF -identifier-: 
REFER OPTION IS ALLOWED ONLY IN 
EXTENT OF MEMBER OF BASED 
STRUCTURE 

DECLARATION OF -identifier-: 
VARIABLE -identifier- IN REFER 
OPTION MUST BE SCALAR 

DECLARATION OF -identifier-: 
ASTERISK SUBSCRIPT ILLEGAL IN 
I SUB DEFINING 



DECLARATION OF -identifier-: 
CONTAINS AN ILLEGAL USE OF ISUB 



Significance 



In a reference to a based 
variable, the explicit locator 
or implicit locator must be 
scalar. Also, arrays of 
locators cannot be compared 
for equality. 

The operation or assignment 
requires creation of an inter- 
mediate value that will raise 
SIZE or FIXEDOVERFLOW, or will 
create an illegal scale factor 
for a fixed point intermediate 
value. 

As stated. Argument might be 
a structure that has no data 
type. 

As stated. 



As stated. 



The ENVIRONMENT attribute in a 
DECLARE statement must specify 
a character constant. The 
ENVIRONMENT option in an OPEN 
or CLOSE statement can specify 
a character variable or any 
other computational 
expression. 

The variable in a REFER option 
must be an earlier member of 
the same based structure as 
the variable whose extent 
contains the REFER option. 

The REFER option cannot be 
used for a structure with a 
storage type other than BASED. 



The refer-variable in the 
extent must be scalar. 



The host-reference in a 
DEFINED attribute cannot 
contain both an asterisk sub- 
script and an iSUB. The 
asterisk extent is not permit- 
ted in iSUB defining. 

An iSUB cannot be used in any 
function reference contained 
in the host-reference. 



Programmer Action 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 
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TABLE B-2. COMPILE-TJME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


DCL007 


F 


DECLARATION OF -identifier-: 
I IN ISUB EXCEEDS NUMBER OF 
DIMENSIONS OF DEFINED VARIABLE 


As stated. 


Correct error. 


DCL008 


F 


DECLARATION OF -identifier-: 
POSITION AND ISUB ARE 
INCOMPATIBLE 


Declaration of a defined 
variable cannot contain both 
an iSUB in the host-reference 
and a POSITION attribute. The 
iSUB is permitted only in iSUB 
defining; the POSITION attri- 
bute is permitted only in 
string overlay defining. 


Correct error. 


DCL009 


F 


HOST AND DEFINED VARIABLES ARE 
NOT COMPATIBLE FOR ISUB DEFINING 


Both the host variable and the 
defined variable must be 
arrays of scalars. Structures 
are not permitted. 


Correct error. 


DCL010 


F 


DECLARATION OF -identifier-: 
HOST VARIABLE -identifier- HAS 
ILLEGAL TYPE FOR DEFINING 


The host variable cannot be a 
label constant, entry 
constant, file constant, 
condition, or builtin 
function. 


Correct error. 


DCL011 


F 


DECLARATION OF -identifier-: 
HOST VARIABLE -identifier- 
CANNOT BE BASED OR DEFINED 


As stated. 


Correct error. 


DCL0I2 


F 


DECLARATION OF -identifier—. 
HOST VARIABLE -identifier- 
CANNOT BE OR CONTAIN A VARYING 
STRING 


As stated. 


Correct error. 


DCL014 


F 


DECLARATION OF -identifier-: 
HOST VARIABLE -identifier-: 
CANNOT BE A MEMBER OF AN ARRAY OF 
STRUCTURES 


As stated. 


Correct error. 


DCL015 


F 


DECLARATION OF -identifier: 
HOST REFERENCE -identifier- HAS 
WRONG NUMBER OF DIMENSIONS 


The host variable in simple 
defining must have the same 
number of dimensions as the 
defined variable. If the host 
reference is subscripted, then 
it must have as many asterisk 
subscripts as the defined 
variable has dimensions. 


Correct error. 


DCL016 


F 


DECLARATION OF -identifier-: 
SIMPLE DEFINING IS NOT APPLICABLE 
AND DATATYPE IS ILLEGAL FOR 
STRING OVERLAY DEFINING 


As stated. The defined 
variable is not defined in one 
of the three possible ways. 


Correct error. 


DCL018 


F 


DECLARATION OF -identifier-: 
SIMPLE DEFINING IS NOT APPLICABLE 
AND ALIGNED ITEMS CANNOT BE 
STRING OVERLAY DEFINED 


As stated. The defined 
variable is not defined in one 
of the three Possible wavs* 


Correct error. 


DCL019 


F 


DECLARATION OF -identifier-: 
SIMPLE DEFINING IS NOT APPLICABLE 
AND THIS COMBINATION OF DATATYPES 
IS ILLEGAL IN STRING OVERLAY 
DEFINING 


As stated. The defined 
variable is not defined in one 
of the three possible ways. 


Correct error. 
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TABLE B-2. COM PILE-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


DCL020 


F 


ASTERISK CANNOT BE USED IN 
EXTENTS OF BASED VARIABLE 
-identifier- 


As stated. Check the 
declaration. 


Correct error. 


DCL021 


F 


DECLARATION OF -identifier-: 
DEFINED VARIABLE CANNOT BE OR 
CONTAIN A VARYING STRING 


As stated. 


Correct error. 


DCL022 


F 


DECLARATION OF -identifier-: 
ASTERISK EXTENT IS PERMITTED ONLY 
FOR PARAMETERS 


As stated. 


Correct error. 


DCL023 


F 


STATIC LABEL VARIABLE 


A label variable with storage 


Remove INITIAL attribute 






-identifier- CANNOT BE 


type STATIC cannot have an 


or change the storage 






INITIALIZED 


INITIAL attribute, because a 


type. 








label value contains inf ormaT- 
tion about a particular block 
activation, and no block acti- 
vations exist at the time when 
static variables are 
initialized. 




DCL024 


F 


SCALAR VARIABLE -identifier- 
CANNOT HAVE MULTIPLE INITIAL 
VALUES 


An INITIAL attribute with an 
iteration factor or with a 
list of initial values separ- 
ated by commas can only be 
used for an array. 


Correct error. 


DCL025 


F 


DECLARATION OF -identifier-: 


Variables with storage type 


Remove INITIAL 






INITIAL CANNOT BE USED WITH 


DEFINED or parameter cannot 


attribute. 






DEFINED OR PARAMETER 


have the INITIAL attribute 
because they share storage and 
are not allocated. 




DCL026 


F 


ATTRIBUTE CONFLICT IN DECLARATION 


Two conflicting or identical 


Remove conflict, or 






OF -identifier- 


attributes have been explicit- 
ly declared for the diagnosed 
variable. Most conflicts 
involve illegal keyword combi- 
nations within a DECLARE 
statement declaration. 
Repeated attribute keywords 
are illegal in the DECLARE 
statement. 


remove duplicate. 


DCL027 


F 


IDENTIFIER -identifier- HAS 
MULTIPLE DECLARATIONS IN THE SAME 
BLOCK 


As stated. 


Remove additional 
declarations. 


DCL028 


W 


EXTERNAL FILE CONSTANT 


As stated. One of the declar- 


Move the explicit 






-identifier- HAS MULTIPLE 


ations might be contextual. 


declaration to the 






DECLARATIONS IN THE SAME 


File description attributes 


outermost block. 






EXTERNAL PROCEDURE 


in the diagnosed declaration 
have been ignored; those in 
the declaration not diagnosed 
have been used instead. 




DCL029 


F 


DECLARATION OF -identifier-: 
ITERATION FACTOR IN INITIAL 
ATTRIBUTE MUST BE OF 
COMPUTATIONAL TYPE 


As stated. 


Correct error. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 



Message 
Code 



Severity 



DCL030 



DCL031 



DCL032 



DCL033 



DCL034 



DCL035 



DCL036 



DCL037 



DCL038 



DCL040 



DCL041 



Message Text 



DECLARATION OF -identifier-: 
ITERATION FACTOR IN INITIAL 
ATTRIBUTE MOST BE SCALAR 

DECLARATION OF -identifier-: 
REFERENCE OR EXPRESSION IN 
INITIAL ATTRIBUTE MUST BE SCALAR 

DECLARATION OF -identifier-: 
REFERENCE OR EXPRESSION IN 
INITIAL ATTRIBUTE CANNOT BE OF 
TYPE ENTRY, FILE, FORMAT, OR 
CONDITION 

PRECISION OF -identifier- 
EXCEEDS FLOAT BINARY MAXIMUM 
OF 48 



PRECISION OF -identifier- 
EXCEEDS FLOAT BINARY MAXIMUM 
OF 48 



PRECISION OF -identifier- 
EXCEEDS FIXED DECIMAL MAXIMUM 
OF 14 



PRECISION OF -identifier- 
EXCEEDS FLOAT DECIMAL MAXIMUM 
OF 14 



SCALE FACTOR OF -identifier- 
OUTSIDE ALLOWABLE RANGE OF 
+/-2S5 

ABSOLUTE VALUE OF ARRAY 
BOUND * STRIDE IS TOO LARGE 



DECLARATION OF -identifier- 
CONTAINS CIRCULAR DEPENDENCIES 



EXTERNAL DECLARATIONS OF 
-identifier- CONTAIN CONFLICTING 
ATTRIBUTES 



Significance 



As stated. 



As stated, even for initial- 
ization of array elements. 



As stated. 



The diagnosed variable has 
been declared FIXED BINARY 
with a precision p>48. The 
compiler has reduced the 
precision to 48, leaving the 
scale factor q unchanged. 

The diagnosed variable has 
been declared FLOAT BINARY 
with a precision p>48. The 
compiler has reduced the 
precision to 48. 

The diagnosed variable has 
been declared FIXED DECIMAL 
with a precision p > 14. The 
compiler has reduced the 
precision to 14. 

The diagnosed variable has 
been declared FLOAT DECIMAL 
with a precision p>14. The 
compiler has reduced the 
precision to 14. 

As stated. 



The restriction applies to 
every array whose data type is 
BIT nonvarying, CHARACTER 
nonvarying, or PICTURE. The 
stride is a measure of the 
distance between array 
elements in storage. 

The diagnosed declaration 
references itself, directly 
or indirectly. 

The external procedure cur- 
rently being compiled contains 
two declarations of the same 
identifier with the EXTERNAL 
attribute and with conflicting 
attributes. The declarations 
are not in the same block. 



Programmer Action 



Correct error. 



Correct error. 



Correct error. 



Check the program to 
ensure that SIZE will 
not be raised during 
execution. 



Check the program to 
ensure that 48 digits of 
precision are sufficient. 



Check the program to 
ensure that SIZE will 
not be raised during 
execution. 



Check the program to 
ensure that 14 digits of 
precision are sufficient. 



Correct error. 



Change the lower bound, 
the corresponding upper 
bound, and subscripts 
in all references to the 
array . 



Correct error. 



Remove conflict. 
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TABLE B-2. COM PILE-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


DCL042 


F 


NUMBER OF DIMENSIONS OF 
-identifier- EXCEEDS 32 


An identifier cannot have more 
than 32 dimensions, including 
dimensions inherited from con- 
taining structures. 


Correct error. 


DCL043 


F 


SUBSCRIPTED LABEL CONSTANT 
-identifier- MOST BE DECLARED AS 
LABEL ARRAY BY DECLARE STATEMENT 
IN SAME BLOCK 


A subscripted label constant 
appears in the block, and 
there must be a corresponding 
DECLARE statement declaration 
of the label constant array. 


Correct error. 


DCL044 


F- ■•■ ' 


LIKE ATTRIBUTE CANNOT REFERENCE 
A STRUCTURE DECLARED WITH LIKE 


As stated. 


Correct error.' 


DCL045 


F 


LIKE ATTRIBUTE MUST REFERENCE A 
STRUCTURE 


As stated. 


Correct error. 


DCL046 


F 


PARAMETER -identifier- OCCURS 
MORE THAN ONCE IN PARAMETER LIST 


As stated. 


Correct error. 


DCL047 


T 


DECLARATION OF -identifier- 
DEPENDS ON AN AUTOMATIC OR 
DEFINED VARIABLE DECLARED IN THE 
SAME BLOCK 


The diagnosed identifier is 
declared with storage type 
AUTOMATIC or DEFINED and the 
declaration contains a refer- 
ence to another automatic or 
defined variable declared in 
the same block. 


None, unless strict con- 
formance to the ANSI 
standard is intended. 


DCL048 


W 


STATIC EXTERNAL VARIABLE 
-identifier- CAN ONLY BE 
INITIALIZED IN OUTERMOST BLOCK 
OF MAIN PROCEDURE 


As stated. The INITIAL 
attribute has been ignored by 
by the compiler. 


Move the initialization 
to the outermost block 
of the main external 
procedure. 


DCL049 


F 


ABSOLUTE VALUE OF ARRAY BOUND 
GREATER THAN 131071 


As stated. 


Correct error. 


DCL050 


F 


DECLARATION OF -identifier-: 
PARAMETER EXTENT MUST BE LITERAL 
CONSTANT OR ASTERISK 


As stated. 


Correct error. 


DCL051 


T- 


STRUCTURE MOST HAVE AT LEAST ONE 
MEMBER 


As stated. 


Correct error. 


DCL052 . 


F 


DECLARATION OF -identifier- 
DEPENDS ON AN AUTOMATIC OR 
DEFINED VARIABLE 


As stated. 


Correct error. 


EXP001 


F 


AGGREGATE VALUE CANNOT BE 
ASSIGNED TO SCALAR VARIABLE 


As stated. 


Correct error. 


EXP002 


F 


RETURN-VALUE CANNOT BE OF TYPE 
LABEL, ENTRY, FILE, FORMAT, OR 
CONDITION 


As stated. 


Correct error. 


EXP003 


F 


START-EXPRESSION IN DO- 
SPECIFICATION MUST BE SCALAR 


As stated. 


Correct error. 


EXP004 


F 


BY-EXPRESSION IN DO- 
SPECIFICATION MUST BE SCALAR 


As stated. 


Correct error. 
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Message 


Significance 


Programmer Action 


Message 
Code 






Severity 


Message Text 






EXP005 


F 


TO-EXPRESSION IN DO- 
SPECIFICATION MUST BE SCALAR 


As stated. 


Correct error. 


EXP006 


F 


WHILE-EXPRESSION IN DO- 
SPECIFICATION MUST BE SCALAR 


As stated. 


Correct error. 


EXP007 


F 


EXPRESSION IN IF STATEMENT MUST 
BE SCALAR 


As stated. 


Correct error. 


EXP008 


T 


PRECISION P FOR CONSTANT HAS BEEN 
REDUCED TO LEGAL MAXIMUM 


The diagnosed constant has 
more than 14 decimal digits or 
48 binary digits. The 14 or 
48 high order digits have been 
kept; all others have been 
discarded by the compiler. 


Correct as appropriate. 


EXP009 


F 


I/O EXPRESSION OR REFERENCE MUST 
BE SCALAR 


As stated. The error is in a 
statement option or format 
specification. 


Correct error. 


EXP010 


F 


SCALE FACTOR Q OUT OF RANGE 


As stated. 


Correct error. 


EXP011 


F 


PRECISION P FOR FIXED POINT 
CONSTANT EXCEEDS LEGAL MAXIMUM 


As stated. 


Correct error. 


FNI001 


F 


RETURN-VALUE MUST BE SCALAR 


Aggregate return values are 
not supported. 


Correct error. 


FNI002 


F 


DATA DIRECTED I/O NOT SUPPORTED 


As stated. 


Correct error. 


FNI003 


F 


BY NAME ASSIGNMENT NOT SUPPORTED 


As stated. 


Correct error. 


FNI004 


F 


AGGREGATE ARGUMENT -identifier- 
CANNOT BE PASSED TO UNLIKE 
PARAMETER 


An aggregate argument cannot 
be passed except by refer- 
ence. Creation of aggregate 
dummy arguments is not 
supported. 


Correct error. 


FNI005 


F 


SCALAR ARGUMENT -identifier- 
CANNOT BE PASSED TO ARRAY 
PARAMETER 


Promotion of arguments is not 
supported. 


Correct error. 


FNI006 


T 


DECLARATION OF -identifier-: 
UNALIGNED ATTRIBUTE DOES NOT 
CAUSE PACKING OF VALUES FOR THIS 
DATATYPE 


The UNALIGNED attribute causes 
packing of values in storage 
only for the data types 
CHARACTER nonvarying, BIT 
nonvarying, and PICTURE. The 
packing of values is not sup- 
ported for UNALIGNED values 
with other data types. 


None. 


FNI007 


. F 


MEMBER OF ARRAY OF STRUCTURES 


Initialization of unconnected 


Recognize the aggregate 






CANNOT BE INITIALIZED 


storage is not supported. 


or use assignment state- 
ments to do the initial- 
ization. The INITIAL 
attribute can be used 
for a dimensioned member 
of a structure; INITIAL 
only conflicts with 
inherited dimensions. 



| B-12 



60388100 B 



TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


FNI008 


F 


INPUT-TARGET VARIABLE OR 
OUTPUT-SOURCE EXPRESSION MUST 
BE SCALAR 


Stream I/O of aggregates is 
not supported. 


Replace each array ref- 
erence with an embedded 
do-specification. Re- 
place each structure 
reference with a list of 
the members. 


MSC001 


F 


ASSIGNMENT-TARGET CANNOT BE OF 
TYPE ENTRY, FILE, FORMAT, OR 
CONDITION, AND CANNOT BE NAMED 
CONSTANT 


As stated. 


Correct error. 


MSC002 


F 


EXPRESSION IN ASSIGNMENT STATE- 
MENT CANNOT BE OF TYPE ENTRY, 
FILE, FORMAT, OR CONDITION 


As stated. 


Correct error. 


MSC003 


F 


OPERATOR IN COMPARISON OF LOCATOR 
VALUES MUST BE - OR ~i <• 


As stated. 


Correct error. 


MSC004 


F 


I/O OPERATION INCOMPATIBLE WITH 
ATTRIBUTES DECLARED FOR FILE 


The I/O statement is not com- 
patible with the file descrip- 
tion attributes for the file. 


Remove conflict by 
changing the declaration 
or changing the I/O 
statement. 


MSC005 


F 


REFERENCE -identifier- IN REMOTE 
FORMAT ITEM MUST BE A LOCAL REF- 
ERENCE TO A FORMAT CONSTANT 


As stated. 


Correct error. 


MSC006 


F 


INVALID USE OF OPTIONS (MAIN) 


OPTIONS(MAIN) is permitted 
only in the PROCEDURE state- 
ment that heads the main 
external procedure. 


Correct error. 


MSC007 


F 


CONDITION -identifier- CANNOT 
BE PASSED AS ARGUMENT 


As stated. 


Correct error. 


MSC010 


F 


TOO MANY IDENTIFIERS IN PROGRAM - 
IDENTIFIER TABLE OVERFLOW 


The number of identifiers in 
this external procedure 
exceeds the maximum allowed. 


Reorganize and separate 
this external procedure 
into two more external 
procedures. 


MSC011 


F 


BAD LABEL OR FORMAT PREFIX 
-identifier- 


The label or format name is 
explicitly declared with con- 
flicting attributes in the 
same block. 


Correct error. 


MSC012 


F 


UNDECLARED ARRAY OR EXTERNAL 
FUNCTION -identifier 


An identifier for which no 
explicit declaration exists, 
and which is not the name of 
a builtin function, has been 
referenced with arguments or 
subscripts. 


Declare the identifier 
according to the 
intended use. 


MSC013 


F 


SUBROUTINE-REFERENCE -identifier- 
IN CALL STATEMENT MOST BE OF TYPE 
ENTRY 


As stated. 


Remove conflicting 
declaration, or supply a 
DECLARE statement 
declaration for the 
external entry constant. 


MSC014 


F 


PRECISION P OF VARIABLE 
-identifier- MUST BE UNSIGNED 
NON-ZERO INTEGER 


As stated. 


Correct error. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 



Message 
Code 



Severity 



MSC016 



MSC020 



MSC021 



MSC022 



MSC023 



MSC024 



MSC025 



MSC026 



MSC027 



MSC028 
MSC030 
MSC031 



MSC032 



MSC033 



MSC034 



Message Text 



ARGUMENT IN FUNCTION REFERENCE 
-identifier- CANNOT BE AN 
ASTERISK 

DECLARATION OF LABEL CONSTANT 
ARRAY -identifier- : EXTENTS 
MUST BE INTEGER CONSTANTS 



ILLEGAL I/O OPTION COMBINATION 



RECORD I/O STATEMENT MUST HAVE 
FILE-OPTION 

ILLEGAL FILE-DESCRIPTION ATTRI- 
BUTE COMBINATION IN OPEN 
STATEMENT 

CHARACTER CONFLICT IN PICTURE 



NUMBER OF DIGITS IN PICTURE 
EXPONENT MUST BE ONE, TWO, OR 
THREE 

NO DIGITS IN PICTURE MANTISSA 



CONFLICTING CONDITION PREFIXES 



DIVISION BY ZERO ILLEGAL 

CONSTANT EXTENTS REQUIRED 

SUBSCRIPT OF REFERENCE 
-identifier- IS OUT OF RANGE 



ARRAY -identifier- UPPER BOUND 
LESS THAN LOWEP. BOUND 

AREA -identifier- SIZE MOST BE 
BETWEEN AND 131071 

STRING -identifier- LENGTH MOST 
BE BETWEEN AND 131071 



Significance 



As stated. 



All upper and lower bounds for 
dimensions of the label con- 
stant array must be specified 
as optionally signed decimal 
integer constants. 

The combination of options 
specified in the I/O state- 
ment is illegal. There is no 
type of file upon which the 
specified operation can be 
performed. 

As stated. 



As stated. 



The picture specification is 
not legal. 

As stated for a pictured 
numeric floating point 
specification. 

As stated for a pictured 
numeric floating point 
specification. 

The condition prefixes on a 
statement cannot contain an 
enabled condition name and a 
disabled condition name for 
the same condition. 

As stated. 

As stated. 

As stated. If the diagnosed 
statement is a DECLARE state- 
ment, and -identifier- is an 
array of label constants, then 
the dimension attribute is 
inconsistent with a label 
prefix for the same array. 

As stated. 



As stated. 



As stated. 



Programmer Action 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


Message 
Code 






Severity 


Message Text 








MSC035 


F 


ILLEGAL FLOATING POINT CONSTANT 


The statement contains a float 
decimal or float binary 
literal constant with a value 
outside the legal range. 


Correct error. 




MSC036 


F 


THIS STATEMENT CANNOT BE COMPILED 
BECAUSE OF UNRELATED ERROR IN 
SOME PREVIOUS SOURCE STATEMENT 


As stated. 


Correct the other 
nosed error. 


diag- 


MSC037 


F 


PROCEDURE CONTAINS TOO MANY 
AUTOMATIC VARIABLES 


Total storage requirements of 
automatic variables and tempo- 
raries in a procedure and its 
contained begin-blocks exceeds 
120 000 words. 


Correct error. 




MSC038 


F 


ENTRY CONSTANT OR PARAMETER 
-identifier- CAN ONLY BE USED 
FOR PROCEDURE INVOCATION AND AS 
ARGUMENT PASSED TO ENTRY 


As stated. Note that a func- 
tion reference must have the 
parentheses for the argument 
list even if no arguments are 


Correct error. 








PARAMETER 


passed. 






MSC039 


F 


SUBROUTINE-REFERENCE -identifier- 
IN CALL STATEMENT CANNOT BE AN 
ENTRY POINT WITH A RETURNS- 
DESCRIPTOR 


As stated. A CALL statement 
can invoke a procedure at a 
subroutine entry point, not a 
function entry point. 


Correct error. 




MSC040 


F 


FUNCTION-REFERENCE -identifier- 
MUST BE AN ENTRY POINT WITH A 
RETURNS-DESCRIPTOR 


As stated. A function refer- 
ence can invoke a procedure at 
a function entry point, not a 
subroutine entry point. 


Correct error. 




MSC041 


F 


FORM OF RETURN STATEMENT IS 
INCOMPATIBLE WITH ALL ENTRY 
POINTS 


A RETURN statement with a 
return-value can only be used 
to return from a procedure in- 
voked at a function entry 
point. A RETURN statement 


Correct error. 










without a return-value can 
only be used to return from a 
procedure invoked at a sub- 
routine entry point. The 
diagnosed RETURN statement is 
incompatible with all entry 
points. 






MSC042 


W 


FORM OF RETURN STATEMENT IS 
INCOMPATIBLE WITH AT LEAST ONE 
ENTRY 


A RETURN statement with a 
return-value can only be used 
to return from a procedure 
invoked at a function entry 
point. A RETURN statement 


Correct as appropi 


iate. 








without a return value can 
only be used to return from a 
procedure invoked at a subrou- 
tine entry point. The diag- 
nosed RETURN statement is 
incompatible with at least one 
entry point, but not all entry 
points, of the innermost con- 
taining procedure. If the 
RETURN statement is executed 
during an activation for which 
it is not appropriate, the 
ERROR condition is raised. 
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TABLE B-2. COMPILE-TIME DIAGNOSTICS (Contd) 



Message 



Message 
Code 



Severity 



Message Text 



Significance 



Programmer Action 



MSC043 



MSC044 



MSC045 



MSC046 



MSC047 



MSC048 

MSC049 
MSC050 

MSC052 

REF001 

REF002 
REF003 

REF004 

REF006 



FUNCTION -identifier DOES NOT 
CONTAIN SCALAR RETURN STATEMENT 



PROCEDURE WITH OPTIONS MAIN 
CANNOT HAVE PARAMETERS OR 
RETURNS DESCRIPTOR 

THE MAXIMUM NUMBER OF CHARACTERS 
IN A PICTURE EXPONENT IS 510 



EXTERNAL NAMES -identifier- 
-identifier- TRUNCATE TO SAME 
NAME 



EXTERNAL NAME -identifier- 
CONTAINS SPECIAL CHARACTER 



LEADING SPECIAL CHARACTER IN 
EXTERNAL NAME -identifier- 
CHANGED TO A -3- 



RETURN FROM AN ON-UNIT MUST NOT 
HAVE A RETURN VALUE 

LENGTH OF THE PICTURE-SPECIFICA- 
TION IN P FORMAT ITEM CANNOT 
EXCEED 1000 CHARACTERS 

COMPILATION ABORTED BECAUSE OF 
COMPILER ERROR 



ASSIGNMENT-TARGET MUST BE 
VARIABLE OR PSEUDOVARIABLE 

ASSIGNMENT-TARGET MUST BE SCALAR 

INDEX -identifier- IN DO MUST BE 
VARIABLE OR PSEUDOVARIABLE 

INDEX -identifier- IN DO MUST BE 
SCALAR 

WRONG NUMBER OF ARGUMENTS IN 
FUNCTION REFERENCE -identifier- 



A procedure which has one or 
more function entry points 
must contain a RETURN state- 
ment with a return-value. 

The main external procedure 
cannot receive parameters or 
return a value. 

As stated for a pictured 
numeric floating point 
specification. 

The two specified identifiers 
are both declared with the 
EXTERNAL attribute, and each 
is at least 7 characters long. 
Both begin with the same 4 
characters and end with the 
same 3 characters. The oper- 
ating system will treat them 
as identical. 

External names should not con- 
tain the special character $ 

# @ or _. Use of a 
special character can cause 
conflict with system names or 
raise the UNDEFINEDFILE 
condition. 

External names should not con- 
tain the special characters $ 

# @ or _. Special character 
changed to a 3. 

As stated. 



As stated. 



Error in compiler. May have 
been caused by other 
compile-time errors. 



Correct error. 



Correct error. 



Correct error. 



Correct as appropriate. 



Correct as appropriate. 



As stated. 

As stated. 
As stated. 

As stated. 

As stated. 



Correct error. 



Correct error. 



Correct error. 



Correct any other 
errors and recompile. 
If error persists, see 
systems analyst. 

Correct error. 



Correct error. 
Correct error. 

Correct error. 

Correct error. 
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Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


REF007 


F 


SUBROUTINE-REFERENCE -identifier- 
HAS WRONG NUMBER OF ARGUMENTS 


As stated. 


Correct error. 


REF008 


F 


ARGUMENT -identifier- AND 
PARAMETER MUST HAVE SAME NUMBER 
OF DIMENSIONS 


As stated for a subscripted 
reference used for an 
argument . 


Correct error. 


REF009 


F 


REFERENCE TO VARIABLE 
-identifier- HAS WRONG NUMBER 
OF SUBSCRIPTS 


As stated. 


Correct error. 


REF010 


F 


BASED REFERENCE -identifier- 
REQUIRES A LOCATOR-QUALIFIER OR 
AN IMPLICIT LOCATOR 


As stated. 


Correct error by supply- 
ing a locator-qualifier 
or specifying an 
implicit locator in the 
declaration of the based 
variable. 


REF011 


F 


REFERENCE TO A NON-BASED 
VARIABLE -identifier- CANNOT BE 
LOCATOR-QUALIFIED 


As stated. 


Correct error. 


REF012 


F 


SCALE-FACTOR Q ILLEGAL IN 
-identifier- BUILTIN FUNCTION 
REFERENCE BECAUSE RESULT IS 
FLOAT 


Since all arguments to the 
builtin function are not 
FIXED, the result is FLOAT 
and a scale factor is not 
appropriate. 


Correct error by remov- 
ing the scale factor or 
changing the data types 
of the arguments. 


REF013 


F 


VARIABLE -identifier- BEING FREED 
MUST BE UNSUBSCRIPTED 


As stated. 


Correct error. 


REF014 


F 


VARIABLE -identifier- BEING FREED 
MUST BE BASED OR CONTROLLED 


As stated. 


Correct error. 


REF015 


F 


VARIABLE -identifier- BEING FREED 
CANNOT BE A MEMBER OF A STRUCTURE 


As stated. 


Correct error. 


REF016 


F 


VARIABLE -identifier- BEING ALLO- 
CATED CANNOT BE A MEMBER OF A 
STRUCTURE 


As stated. 


Correct error. 


REF017 


F 


VARIABLE -identifier- BEING ALLO- 
CATED MUST BE BASED OR CONTROLLED 


As stated. 


Correct error. 


REF018 


F 


IN-OPTION IN FREE STATEMENT MUST 
BE SCALAR 


As stated. 


Correct error. 


REF019 


F 


IN-OPTION IN FREE STATEMENT MUST 
REFERENCE AN AREA VARIABLE 


As stated. 


Correct error. 


REF020 


F 


IN-OPTION IS ILLEGAL IN FREEING 
A CONTROLLED VARIABLE 


As stated. 


Correct error. 


REF021 


F 


IN-OPTION IN ALLOCATE STATEMENT 
MUST REFERENCE AN AREA VARIABLE 


As stated. 


Correct error. 


REF022 


F 


IN-OPTION IN ALLOCATE STATEMENT 
MUST BE SCALAR 


As stated. 


Correct error. 


REF023 


F 


IN-OPTION MUST REFERENCE A 
VARIABLE 


As stated. 


Correct error. 
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Message 


Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


REF024 


F 


SET-OPTION IN READ OR LOCATE 
STATEMENT MUST REFERENCE A SCALAR 
POINTER VARIABLE 


As stated. 


Correct error. 


REF025 


F 


SET-OPTION MOST REFERENCE A 
VARIABLE 


As stated. 


Correct error. 


REF026 


F 


SET-OPTION IN ALLOCATE STATEMENT 
MUST REFERENCE A SCALAR VARIABLE 


As stated. 


Correct error. 


REF027 


F 


SET-OPTION IN ALLOCATE STATEMENT 
MUST REFERENCE A LOCATOR VARIABLE 


As stated. 


Correct error. 


REF028 


F 


GOTO STATEMENT MUST REFERENCE A 
LABEL CONSTANT OR VARIABLE 


As stated. 


Correct error. 


REF029 


F 


LABEL-REFERENCE IN GOTO STATEMENT 
MUST BE SCALAR 


As stated. 


Correct error. 


REF030 


F 


IDENTIFIER IN PROGRAMMER-NAMED 
CONDITION MUST BE OF TYPE 
CONDITION 


The identifier in a program- 
mer-named condition cannot 
have an explicit declaration 
in the block in which the 
condition is used, or in any 
containing block. 


Remove declaration. 


REF033 


F 


OPERAND -identifier- MUST BE 
SCALAR 


All operands of all operators 
must be scalar; arrays and 
structures are not permitted 
as operands. 


Correct error. 


REF034 


F 


REFERENCE IN I/O CONDITION MUST 
BE A FILE CONSTANT OR VARIABLE 


As stated. 


Correct error. 


REF036 


F 


REFERENCE -identifier- IN 
FILE-OPTION MUST BE A FILE 
CONSTANT OR VARIABLE 


As stated. 


Correct error. 


REF037 


F 


VARIABLE -identifier- IN LOCATE 
STATEMENT MUST BE BASED 


The identifier following the 
keyword LOCATE must be a based 
variable. It cannot be 
subscripted and cannot be a 
member of a structure. 


Correct error. 


REF038 


F 


VARIABLE -identifier- IN FROM- OR 
INTO-OPTION MUST BE UNSUBSCRIPTED 
AND CANNOT BE A MEMBER OF A 
STRUCTURE 


As stated. 


Correct error. 


REF039 


F 


LABEL REFERENCE -identifier- IN 
GOTO STATEMENT CANNOT BE A FORMAT 
CONSTANT 


As stated. 


Correct error. 


REF040 


F 


REFERENCE -identifier- IN SET- OR 
KEYTO-OPTION MUST BE SCALAR 


As stated. 


Correct error. 


REF041 


F 


REFERENCE IN SET- OR KEYTO-OPTION 
MUST BE A VARIABLE OR 
PSEUDOVARIABLE 


As stated. 


Correct error. 
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Message 


Significance 


Programmer Action 








Message 
Code 


Severity 


Message Text 






REF042 


F 


ILLEGAL STRING OPTION 


In a GET statement, the STRING 
option can be an expression 
that must be scalar and compu- 
tational. In a PUT statement, 
the reference in the STRING 
option must be a scalar 
variable or pseudovariable 
with the data type CHARACTER 
nonvarying or CHARACTER 
VARYING. 


Correct error. 


REF043 


F 


VARIABLE IN KEYTO-OPTION MUST BE 
OF TYPE CHARACTER 


As stated. 


Correct error. 


REF044 


F 


VARIABLE IN INTO- OR FROM-OPTION 


The reference in an INTO or 


Either change to an ap- 






MUST BE STATIC, AUTOMATIC, 


FROM option cannot be a 


propriate storage type, 






CONTROLLED, OR BASED 


variable that is DEFINED or 
parameter. 


or declare a based vari- 
able and overlay the 
based variable on the 
defined variable or 
parameter that contains 
the values to be trans- 
mitted. 


REF045 


F 


OFFSET -identifier- REQUIRES 
REFERENCE TO SCALAR AREA 


A based variable is refer- 
enced with a locator-qualifier 
or implicit locator that is an 
offset variable. The locator 
value must be declared with a 
reference to a scalar area 
variable. 


Correct error. 


REF046 


F 


REFERENCE -identifier- TO AN 
UNDECLARED STRUCTURE 


The statement contains a 
structure-qualified reference 
whose structure-qualifier does 
not reference any known 
structure. 


Correct error. 


REF047 


F 


STRUCTURE-QUALIFIED REFERENCE 


The statement contains an 


Correct error by re- 






-identifier- MUST BE PROPERLY 


ambiguous structure-qualified 


solving the ambiguity. 






QUALIFIED 


reference; that is, there are 
two or more known structures 
to which the entire struc- 
ture-qualified reference might 
apply. 




REF048 


F 


REFERENCE -identifier- MUST BE 


The statement contains a ref- 


Correct error by re- 






PROPERLY STRUCTURE-QUALIFIED 


erence which has no struc- 
ture-qualifier and which is 
ambiguous; that is, it does 
not reference any know identi- 
fier that is not a member, and 
there are two or more struc- 
ture members to which the 
reference might apply. 


solving the ambiguity. 
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Significance 


Programmer Action 


Message 
Code 


Severity 


Message Text 


REF049 


F 


BASED ALLOCATION WHICH SETS 
OFFSET VARIABLE REQUIRES IN- 
OPTION IN ALLOCATION OR AREA- 
REFERENCE IN OFFSET ATTRIBUTE 


As stated. 


Correct error. 


REF050 


F 


ALLOCATION OF BASED VARIABLE 
REQUIRES SET-OPTION OR ASSUMED 
SET-OPTION 


As stated. 


Correct error. 


REF051 


W 


REMOTE FORMAT -identifier- IS 
NONLOCAL 


As stated. 


Correct error. 


SYN001 


F 


SYNTAX ERROR 


This message is issued for 
most of the errors that can 
be detected before all declar- 
ations have been processed. 
The compiler indicates the 
place at which the statement 
has ceased to conform to any 
legal syntax. Other messages 
(preceded by ***) can be in 
the source listing. These 
messages follow. 


Correct error. 






*** END OF PROGRAM INSIDE A 
COMMENT 


Compiler was expecting a 
delimiter to end a comment, 
but found the end-of- 
inf ormation. 


Check for unmatched 
comment delimiter. 






*** FIRST STATEMENT NOT A LEGAL 
PROC. NO.PROC: PROCEDURE 
OPTIONS(MAIN); ASSUMED 


The PROCEDURE statement is 
missing or invalid. The 
compiler generated a 
PROCEDURE statement for the 
program. 


Correct error. 






*** PROGRAM MUST BE A COMPLETE 
EXTERNAL PROCEDURE. END CARDS 
SUPPLIED 


END statement or statements 
missing. The compiler gener- 
ated the necessary END 
statements. 


Check for mismatched 
BEGIN-END blocks. 
Check for mismatched 
PROCEDURE-END 
statements. 






*** THE CLOSURE NAME CANNOT BE 
FOUND, STATEMENT IGNORED 


The closure name specified in 
the END statement does not 
match an entry name on a 
PROCEDURE statement, a label 
on a BEGIN statement, or a 
label on a DO statement. 


Correct error. 


SYN002 


F 


ALLOCATION WITH SET- OR 
IN-OPTION IS ALLOWED ONLY FOR 
BASED VARIABLES 


As stated. 


Correct error. 


SYN003 


F 


BY OR TO ILLEGAL WITH INDEX OF 
NON-COMPUTATIONAL TYPE 


As stated. 


Correct error. 


SYN004 


F 


LARGEST INTEGER PERMITTED IN 
CERTAIN CONTEXTS IS 16383 


The statement contains a deci- 
mal integer larger than 16383. 


Correct error. 
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TABLE B-3. RUN-TIME DIAGNOSTICS 





Mes 


sage 


Significance 


Programmer Action 


ONCODE 
Value 


Condition 


Message Text 


3 


ERROR 


COMPILATION ERROR AT 
STATEMENT -number- 


A fatal error was diagnosed at 
compile time, or a warning was 
issued at compile time and the 
diagnosed statement was executed 
in an illegal manner. 


Correct error and 
recompile. 


4 


FINISH 


None 


FINISH condition signaled, STOP 
statement executed, or main pro- 
cedure terminated normally. 


None. 


9 


ERROR 


SIGNAL ERROR 


ERROR condition signaled. 


None. 


20 


RECORD 


RECORD (SIGNALED) 


RECORD condition signaled. 


None. 


21 


RECORD 


RECORD (RECORD LENGTH NOT 
EQUAL TO RECORD AREA 
LENGTH) 


CRM error 143. Record length 
less than generation (allocation 
unit) size. 


Correct error. 


22 


RECORD 


RECORD (RECORD LENGTH NOT 
EQUAL TO RECORD AREA 
LENGTH) 


CRM error 142 or 170. Record 
length exceeds generation (allo- 
cation unit) size. 


Correct error. 


23 


RECORD 


RECORD (RECORD LENGTH NOT 
EQUAL TO RECORD AREA 
LENGTH) 


Record length exceeds size of 
allocated buffer. 


Correct error. 


24 


RECORD 


RECORD (RECORD LENGTH NOT 
EQUAL TO RECORD AREA 
LENGTH) 


Record length is less than size 
of allocated buffer. 


Correct error. 


25 


RECORD 


RECORD (RECORD LENGTH NOT 
EQUAL TO RECORD AREA 
LENGTH) 


Record length not equal to gener- 
ation (allocation unit) size. 


Correct error. 


40 


TRANSMIT 


TRANSMIT (SIGNALED) 


TRANSMIT condition signaled. 


None. 


41 


TRANSMIT 


TRANSMIT (OUTPUT) 


Transmission error occurred 
during output. If the diagnosed 
statement is a GET statement with 
the COPY option, the problem 
occurred on the copy file. 


Retry. See CRM 
manuals. Check CRM 
error Status in the 
day file. 


42 


TRANSMIT 


TRANSMIT (INPUT) 


Transmission error occurred 
during input. CRM errors 130, 
135, 136, 137, and 140 occurred. 
If the diagnosed statement is a 
GET statement with a COPY option, 
the problem occurred on the input 
file. 


Retry. See CRM 
manuals . 


43 


TRANSMIT 


TRANSMIT (OUTPUT) - SOME 
REC. MGR. ERROR. SEE 
DAYFILE 


CRM error. 


Retry. See CRM 
manuals . 


44 


TRANSMIT 


TRANSMIT (INPUT) - SOME 
REC. MGR. ERROR. SEE 
DAYFILE 


CRM error. 


Retry. See CRM 
manuals. 


50 


KEY 


KEY (SIGNALED) 


KEY condition signaled. 


None. 


51 


KEY 


KEY (KEYED RECORD NOT 
FOUND ) 


CRM error 445. Record not found. 


Correct error. 
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Mes 


sage 


Significance 


Programmer Action 


ONCOBE 
Value 


Condition 


Message Text 


52 


KEY 


KEY (ATTEMPT TO ADD 
DUPLICATE KEY) 


CRM error 446. Duplicate key. 


Correct error. 


53 


KEY 


KEY (KEY SEQUENCE ERROR) 


CRM error. Bad key 
specification. 


Correct error. 


54 


KEY 


KEY (KEY CONVERSION ERROR) 


Key on record file does not 
convert. 


Correct error. 


55 


KEY 


KEY (KEY SPECIFICATION 
ERROR) 


Unacceptable key format. 


Correct error. 


57 


KEY 


KEY (NO SPACE AVAILABLE TO 
ADD KEYED RECORD) 


Key conversion/ length problem. 


Correct error. 


70 


ENDFILE 


ENDFILE 


EOF encountered during GET COPY. 


Correct error. 


70 


ENDFILE 


ENDFILE 


ENDFILE condition signaled. 


None. 


71 


ENDFILE 


ENDFILE - END OF DATA 


End of file (EOF) encountered, 
end of information (EOI) 
encountered, or attempted read 
beyond end of file. 


Close the file and open 
it again to read beyond 
end of file. 


72 


ENDFILE 


ENDFILE - FILE AT BOI 


End of file encountered at 
beginning of information (BOI). 
No data on file. 


Correct error. 


80 


UNDEFINEDFILE 


UNDEFINEDFILE (SIGNALED) 


UNDEFINEDFILE condition signaled. 


None. 


81 


UNDEFINEDFILE 


UNDEFINEDFILE (ATTRIBUTE 
CONFLICT) 


Error in attributes detected 
during opening/closing. 


Correct error. 


82 


UNDEFINEDFILE 


UNDEFINEDFILE (FILE TYPE 
NOT SUPPORTED) 


Invalid option in OPEN statement, 
or invalid file description 
attribute. 


Correct error. 


83 


UNDEFINEDFILE 


UNDEFINEDFILE (OPEN STATE- 
MENT PARAMETER ERROR) 


File constant and CRM file 
incompatible. Error in ENVIRON- 
MENT specification or FILE 
control statement, or CRM file 
nonexistent for input or update. 


Correct error. 


84 


UNDEFINEDFILE 


UNDEFINEDFILE (BAD OPTION 
INTRODUCED) 


FILE control statement parameter 
unacceptable. MRL/FL option not 
specified. 


Correct error. 


85 


UNDEFINEDFILE 


UNDEFINEDFILE (DATASET 
ALREADY IN USE) 


Attempt to open a file constant 
and associate it with a CRM file 
already in use. 


Correct error. 


86 


UNDEFINEDFILE 


UNDEFINEDFILE (SOME CRM 
ERROR. SEE DAYFILE) 


CRM error 5, 6, 21, 25, 30, 31, 
32, 33, 35, 36, 45, 50, 144, 150, 
151, 154, 165, or 354. 


See CRM manuals. 


87 


UNDEFINEDFILE 


UNDEFINEDFILE (FILE TITLE 
CONTAINS AN INVALID 
CHARACTER OR HAS A LENGTH 
OF ZERO) 


The title option has a length of 
zero, or contains a blank or 
special character; or there is 
no title option and the filename 
contains a $, @, #, or . 


Correct error. 


89 


UNDEFINEDFILE 


UNDEFINEDFILE (CRM ERROR 
ON FILE OPENING) 


CRM error during file opening. 


See CRM manuals. 
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Message 


Significance 


Programmer Action 


ONCODE 
Value 


Condition 


Message Text 


90 


ENDPAGE 


None 


ENDPAGE condition raised during 
output on print file or during 
GET COPY. 


Correct as appropriate. 


90 


ENDFAGE 


None 


ENDPAGE condition signaled. 


None . 


91 


UNDEFINEDFILE 


None 


ENDPAGE condition signaled on 
nonexistent file. 


Correct error. 


92 


UNDEFINEDFILE 


UNDEFINED FILE (RECORD 
MANAGER, MODULE NOT 
LOADED) 


File opening failed. 


Correct error. 


300 


OVERFLOW 


OVERFLOW 


OVERFLOW condition signaled. 


None. 


301 


OVERFLOW 


OVERFLOW (IN EXECUTION OF 
IN-LINE CODE) 


OVERFLOW condition raised. 


Correct error. 


302 


OVERFLOW 


OVERFLOW (EXP ARGUMENT 
GREATER THAN 741.67) 


OVERFLOW condition raised during 
exponential evaluation. 


Correct error. 


303 


OVERFLOW 


OVERFLOW (SINH ARGUMENT 
GREATER THAN 741.67) 


OVERFLOW condition raised in 
computation of SINH. 


Correct error. 


304 


OVERFLOW 


OVERFLOW (COSH ARGUMENT 
GREATER THAN 741.67) 


OVERFLOW condition raised in 
computation of COSH. 


Correct error. 


307 


OVERFLOW 


OVERFLOW (OCCURRED DURING 
EXPONENTIATION) 


OVERFLOW condition raised during 
exponentiation. 


Correct error. 


310 


FIXEDOVERFLOW 


FIXEDOVERFLOW 


FIXEDOVERFLOW condition signaled. 


None. 


310 


FIXEDOVERFLOW 


FIXEDOVERFLOW (IN EXECU- 
TION OF IN-LINE CODE) 


FIXEDOVERFLOW condition raised. 


Correct error. 


320 


ZERODIVIDE 


ZERODIVIDE 


ZERODIVIDE condition signaled. 


None. 


320 


ZERODIVIDE 


ZERODIVIDE (IN EXECUTION 
OF IN-LINE CODE) 


ZERODIVIDE condition raised. 


Correct error. 


330 


UNDERFLOW 


UNDERFLOW 


UNDERFLOW condition signaled. 


None. 


330 


UNDERFLOW 


UNDERFLOW (IN EXECUTION 
OF IN-LINE CODE) 


UNDERFLOW condition raised. 


Correct error. 


332 


UNDERFLOW 


UNDERFLOW (EXP ARGUMENT 
LESS THAN -675.82) 


UNDERFLOW condition raised during 
exponential evaluation. 


Correct error. 


337 


UNDERFLOW 


UNDERFLOW (OCCURRED DURING 
EXPONENTIATION) 


UNDERFLOW condition raised during 
exponentiation. 


Correct error. 


340 


SIZE 


SIZE (NORMAL) 


SIZE condition raised in an 
operation other than I/O. 


Correct error. 


341 


SIZE 


SIZE (I/O) 


SIZE condition raised during 
conversion in stream I/O. 


Correct error. 


342 


SIZE 


SIZE (ARITHMETIC TO CHAR- 
ACTER STRING CONVERSION) 


SIZE condition raised in FLOAT 
arithmetic to character string 
conversion. 


Correct error. 


343 


SIZE 


SIZE (ARITHMETIC TO ARITH- 
METIC I/O CONVERSION) 


SIZE condition raised. 


Correct error. 
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TABLfiB-3. RtfN-ttME DIAGNOSTICS (Contd) 



Message 



ONCODE 
Value 



350 

351 

352 

355 

360 

361 

362 
370 
371 

372 
373 

374 

375 

376 

377 
500 

520 
521 



Condition 



STRINGRANGE 
STRINGRANGE 

STRINGRANGE 

STRINGRANGE 

AREA 

AREA 

AREA 

STORAGE 

STORAGE 

STORAGE 

STORAGE 

STORAGE 

STORAGE 

STORAGE 

STORAGE 
CONDITION 
SUBSCRIPTRANGE 
SUBSCRIPTRANGE 



Message Text 



STRINGRANGE (SIGNALED) 



STRINGRANGE (IN SUBSTR OF 
A CHARACTER STRING) 



STRINGRANGE (IN SUBSTR OP 
A BIT STRING) 



Message 

AREA RAISED IN ALLOCATE 
STATEMENT 

AREA RAISED IN ASSIGNMENT 
STATEMENT 

AREA (SIGNALED) 

STORAGE (SIGNALED) 

STORAGE (CMM IS UNABLE TO 
ALLOCATE SPACE FOR CRM OR 
OTHER ROUTINE OUTSIDE OF 
PL/I) 



STORAGE (UNABLE TO ALLO- 
CATE A BASED VARIABLE) 



STORAGE (UNABLE TO ALLO- 
CATE A CONTROLLED 
VARIABLE) 

STORAGE (UNABLE TO ALLO- 
CATE AN AUTOMATIC VARIABLE 
OR A TEMPORARY) 

STORAGE (UNABLE TO ALLO- 
CATE A TEMPORARY) 



Message 



Message 



A PROGRAMMER-NAMED CON- 
DITION HAS BEEN SIGNALED. 

SUBSCRIPTRANGE 



SUBSCRIPTRANGE (IN EXECU- 
TION OF IN-LINE CODE) 



Significance 



STRINGRANGE condition in 
substring computation. 

STRINGRANGE condition raised in 
SUBSTR builtin function or 
pseudovariable. 

STRINGRANGE condition raised in 
SUBSTR builtin function or 
pseudovariable. 

STRINGRANGE condition raised in 
REVERSE builtin function. 

Allocation of nons tacked storage 
block has failed. 

Assignment of area to smaller 
area. 

AREA condition signaled. 

STORAGE condition signaled. 

STORAGE condition raised, pos- 
sibly while attempting to load a 
CRM capsule. Diagnostics and 
snap output will always appear 
on the day file. 

STORAGE condition raised while 
attempting to allocate a based 
variable which is not in an area. 

STORAGE condition raised while 
attempting to allocate a 
controlled variable. 

STORAGE condition raised while 
attempting to allocate an auto- 
matic variable or a temporary. 

STORAGE condition raised while 
attempting to allocate a 
temporary. 

STORAGE condition raised during 
allocation of a temporary such as 
a dummy argument . 

STORAGE condition raised with 
illegal oncode value. 

CONDITION signaled for a 
programmer-defined condition. 

SUBSCRIPTRANGE condition 
signaled. 

SUBSCRIPTRANGE condition raised. 



Programmer Action 



Correct error. 
Correct error. 

Correct error. 

Correct error. 

Correct error. 

Correct error. 

None. 
None. 
Correct error. 

Correct error. 

Correct error. 

Correct error. 

Correct error. 

Correct error. 

Correct error. 

None. 

None. 

Correct error. 
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Message 


Significance 


Programmer Action 


ONCODE 
Value 


Condition 


Message Text 


522 


SHBSCRIPTRANGE 


SUBSCRIPTRANGE (HIGH) 


SUBSCRIPTRANGE condition raised 
for subscript that exceeds upper 
bound. 


Correct error. 


523 


SUBSCRIPTRANGE 


SUBSCRIPTRANGE (LOW) 


SUBSCRIPTRANGE condition raised 
for subscript smaller than lower 
bound. 


Correct error. 


600 


CONVERSION 


CONVERSION (INTERNAL) 
(SIGNALED) 


CONVERSION condition signaled. 


None. 


601 


CONVERSION 


CONVERSION (I/O) 


Conversion condition raised in 
character to character conversion 
in I/O. 


Correct error. 


604 


CONVERSION 


CONVERSION (ERROR IN 
F-FORMAT INPUT) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


607 


CONVERSION 


CONVERSION (ERROR IN 
E-FORMAT INPUT) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


610 


CONVERSION 


CONVERSION (ERROR IN 
B-FORMAT INPUT) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


612 


CONVERSION 


CONVERSION (CHARACTER 
STRING TO ARITHMETIC) 


CONVERSION condition raised (not 
in I/O) as stated. 


Correct error. 


613 


CONVERSION 


CONVERSION (CHARACTER 
STRING TO ARITHMETIC) 
(I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


615 


CONVERSION 


CONVERSION (CHARACTER 
STRING TO BIT STRING) 


CONVERSION condition raised (not 
in 1/0) as stated. 


Correct error. 


616 


CONVERSION 


CONVERSION (CHARACTER 
STRING TO BIT STRING) 
(I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


618 


CONVERSION 


CONVERSION (CHARACTER TO 
PICTURE) 


CONVERSION condition raised (not 
in 1/0) in picture verification. 


Correct error. 


619 


CONVERSION 


CONVERSION (CHARACTER TO 
PICTURE) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


622 


CONVERSION 


CONVERSION (P-FORMAT 
INPUT - DECIMAL) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


625 


CONVERSION 


CONVERSION (P-FORMAT 
INPUT - CHARACTER) (I/O) 


CONVERSION condition raised as 
stated in I/O. 


Correct error. 


1000 


ERROR 


Message 


ERROR condition raised during 
input. 


Correct error. 


1002 


ERROR 


STRING LENGTH ERROR or no 
mes s age 


String length error during input 
or output. 


Correct error. 


1003 


ERROR 


Message 


RECORD condition raised during 
stream input. Actual line size 
on CRM file exceeds line size 
specified or declared during 
file opening. 


Open file with suffi- 
cient line size speci- 
fied in LINESIZE 
option. 


1004 


ERROR 


None 


PAGE or LINE requested on a file 
that is not a print file. 


Correct error. 
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Message 



ONCODE 
Value 



1005 
1010 

1011 
1012 

1013 

1015 
1016 

1020 

1021 
1030 
1031 

1040 
1100 



1102 



Condition 



1515 



ERROR 

ERROR 

ERROR 
ERROR 

ERROR 

ERROR 
ERROR 

ERROR 

ERROR 
ERROR 
ERROR 

ERROR 
ERROR 



ERROR 



1500 


ERROR 


1504 


ERROR 


1506 


ERROR 


i erto 

1JUO 


ERROR 


1510 


ERROR 


1514 


ERROR 



Message Text 



ERROR 



None 

None 

None 
Message 

None 

Message 
Message 

Message 

Message 

None 

WIDTH MUST BE SPECIFIED 
IN AN A OR B FORMAT ITEM 
USED FOR INPUT 

Message 



ILLEGAL ATTEMPTED NORMAL 
RETURN FROM ON-UNIT 



ERROR (NORMAL TERMINATION 
OF ERROR ON-UNIT) 



Message 
Message 
Message 
Message 
Message 
Message 

Message 



Significance 



Reference to current length of 
uninitialized VARYING string. 

REWRITE keyed operation on FO=WA, 
RT=F. Statement not legal on the 

file. 

CRM error on file closing. 

Record. length inaccessible, or 
partial record I/O not possible. 

Key has length of zero, or CRM 
file has FO=WA and key cannot be 
converted to arithmetic. 

File undefined. 

File not open on normal return 
from UNDEFINEDFILE on-unit. 

Statement not executable, or 
statement illegal for CRM file. 

No allocated buffer. 

Attempted format list recursion. 

An A or B format item with no 
width has been executed by a GET 
statement . 

CRM error 355, or fatal CRM 
error. 

Attempt to perform normal termi- 
nation of an on-unit for 
FIXEDOVERFLOW, OVERFLOW, SIZE, 
STRINGRANGE, SUBSCRIPTRANGE , or 
ZERODIVIDE condition. 

Attempt to perform normal termi- 
nation of an on-unit for an ERROR 
condition. This activates the 
system on-unit for ERROR; the 
current established on-unit is 
by-passed. 

Negative argument. 

Negative or zero argument. 

Argument too large for SIN. 

Argument too large* 

Both arguments are zero for ATAN. 

Absolute value of argument great- 
er than or equal to 1.0. 

Intermediate result is out of 
range. 



Programmer Action 



Correct error. 
Correct error. 

Correct error. 
Correct error. 

Correct error. 

Correct error. 
Correct error. 

Correct error. 

Correct error. 
Correct error. 
Correct error. 

See CRM manuals. 
Correct error. 



Correct error. 



Correct error. 
Correct error. 
Correct error. 
Correct error. 
Correct error. 
Correct error. 

Correct error. 
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Mes 


sage 


Significance 


Programmer Act 


ion 


ONCODE 
Value 


Condition 


Message Text 


1516 


ERROR 


Message 


Argument exceeds 1.0 in absolute 
value. 


Correct error. 




1518 


ERROR 


Message 


Argument exceeds 1.0 in absolute 
value. 


Correct error. 




1520 


ERROR 


Message 


Argument too large for SIND. 


Correct error. 




1522 


ERROR 


Message 


Argument too large for COS)). 
Accuracy lost. 


Correct error. 




1524 


ERROR 


Message 


Argument too large for COSD. 
Accuracy lost. 


Correct error. 




1526 


ERROR 


Message 


Argument too large for TAND. 
Accuracy lost. 


Correct error. 




1528 


ERROR 


Message 


Both arguments for ATAND are 
zero. 


Correct error. 




1532 


ERROR 


Message 


Exponentiation with negative 
base. Logarithm (base 2) re- 
quested of nonpositive quantity. 


Correct error. 




1534 


ERROR 


Message 


Common logarithm of nonpositive 
item requested. 


Correct error. 




1542 


ERROR 


Message 


Both arguments zero in 
exponentiation. 


Correct error. 




1550 


ERROR 


Message 


Exponentiation attempted with 
zero base and exponent not 
exceeding zero. 


Correct error. 




1552 


ERROR 


Message 


Zero base raised to a nonpositive 
power . 


Correct error. 




1600 


ERROR 


Message 


Unacceptable argument for SIN. 


Correct error. 




1604 


ERROR 


Message 


Unacceptable argument for SIND. 


Correct error. 




1606 


ERROR 


Message 


Unacceptable argument for COS. 


Correct error. 




1610 


ERROR 


Message 


Unacceptable argument for COSD. 


Correct error. 




1612 


ERROR 


Message 


Unacceptable argument for TAN. 


Correct error. 




1616 


ERROR 


Message 


Unacceptable argument for TAND. 


Correct error. 




1618 


ERROR 


Message 


Unacceptable argument for ATAN. 


Correct error. 




1622 


ERROR 


Message 


Unacceptable argument for ATAND. 


Correct error. 




1624 


ERROR 


Message 


Unacceptable argument for ATAN. 


Correct error. 




1626 


ERROR 


Message 


Unacceptable argument for ATAN. 


Correct error. 




1628 


ERROR 


Message 


Unacceptable argument for SINH. 


Correct error. 




1632 


ERROR 


Message 


Unacceptable argument for COSH. 


Correct error. 




1636 


ERROR 


Message 


Unacceptable argument for TANH. 


Correct error. 
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TABLE B-3. RUN-TIME DIAGNOSTICS (Corrtd) 



Message 



ONCODE 
Value 



1648 
1652 
1656 
1658 
1660 
1666 
1670 
1674 

1678 

1680 

3000 

3001 

3004 

3799 

3799 
3802 
3804 

4051 
4061 
4062 
4063 



Condition 



ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 
ERROR 
ERROR 

ERROR 
ERROR 
ERROR 
ERROR 



Message Text 



Message 
Message 
Message 
Message 
Message 
Message 
Message 
Message 

Message 

Message 

None 

None 
Message 



FAILURE TO CORRECT ERROR 
FOR ONCODE = 601 



FAILURE TO CORRECT ERROR 
FOR ONCQDE =612 

ARRAY BOUND MAGNITUDE 
> 131071 

STRING LENGTH NEGATIVE, 
TOO LARGE, OR 
UNINITIALIZED 

BLOCK NOT IN AREA 



BLOCK WRONG SIZE 



BLOCK WRONG SIZE 
Message 



Significance 



Unacceptable argument for EXP. 

Unacceptable argument for LOG. 

Unacceptable argument for L0G2, 

Unacceptable argument for LOG10. 

Unacceptable argument for SORT. 

Unacceptable argument for ACOS. 

Unacceptable argument for ASIN. 

Argument for ATANH indefinite or 
out of range. 

Operand for exponentiation 
indefinite or out of range. 

Operand for exponentiation 
indefinite or put of range. 

Illegal specification for an 

E format item (sd<0, sd> width, 

fd>sd, fd<0, or fd absent). 



Illegal specification for an 
F format item (fd> width or 
fd absent). 

Width specification absent for 
format during GET statement 
execution. 

Failure to correct previous error 
in character to character 
conversion. 

Failure to correct previous con- 
version error (not in I/O), 

Absolute value of upper bound 
top large. 

Attempt to allocate or reference 
a string with improper maximum 
or current length. 

Request to free a storage block 
not in specified area. 

Wrong size supplied in request to 
itee an. outer storage block. 

Wrong size supplied in request to 
free a storage block in an area. 

Storage in an area has been 
overlaid and is now incorrect. 



Programmer Action 



Correct 
Correct 
Correct 
Correct 
Correct 
Correct 
Correct 
Correct 



error . 
error, 
error, 
error . 
error, 
error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error. 



Correct error, or 
report to a systems 
analyst. 



B-28 



89388100 B 



TABLE B-3. RUN-TIME DIAGNOSTICS (Contd) 



Message 


Significance 


Programmer Action 


ONCODE 
Value 


Condition 


Message Text 


4064 


ERROR 


Message 


Storage in a stack has been 
overlaid and is now incorrect 


Report to a systems 
analyst. 


4065 


ERROR 


Message 


Allocated temporary storage is 
now flawed. 


Report to a systems 
analyst. 


4066 


ERROR 


Message 


Allocated temporary storage has 
been overlaid and is now 
incorrect. 


Report to a systems 
analyst. 


5000 


ERROR 


TOO MANY ARGUMENTS 


Too many arguments in procedure 
or function reference. 


Correct error. 


5000 


ERROR 


TOO FEW ARGUMENTS 


Too few arguments in procedure 
or function reference. 


Correct error. 


9000 


ERROR 


Message 


Nonlocal GOTO during block 
activation or during allocation. 


Correct error. 


9001 


ERROR 


Message 


Activation descriptor not found 
in GOTO label variable execution. 


Correct error, or 
report to systems 
analyst. 


9002 


ERROR 


Message 


Block descriptor not found in 
GOTO label variable execution. 


Correct error, or 
report to a systems 
analyst. 


9020 


ERROR 


Message 


CRM out of space. Field length 
must be increased. 


Increase field length 
for program execution. 
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GLOSSARY 



ABNORMAL BLOCK TERMINATION - Termination of a 
block activation in a manner such that control does not 
return to the predecessor block activation in the normal 
manner. Execution of a nonlocal GOTO causes the 
abnormal termination of one or more block or on-unit 
activations. Execution of a RETURN statement when a 
begin block is currently active causes the abnormal 
termination of one or more begin block activations. 

ABNORMAL ON-UNIT TERMINATION - Termination of an 
on-unit activation in a manner such that control does 
not return to the point of interrupt. Execution of a 
nonlocal GOTO causes the abnormal termination of one 
or more block or on-unit activations. 

ACTIVATION - A specific execution of a block or on-unit; 
the process of initiating execution of a block or on-unit. 

•ACTIVE BLOCK - A block that is presently being 
executed. 

ADVANCED ACCESS METHODS (AAM) - A file manager 
within CYBER Record Manager that processes indexed 
sequential file organizations and supports the Multiple 
Index Processor. 

AGGREGATE - An organized collection of data elements. 

AGGREGATE TYPE - The particular organization used to 
form an aggregate, including the simple case of a single 
scalar. 

ALIGNED VALUE - A value positioned on a word boundary 
in storage. 

ALLOCATED BUFFER - A generation specifically allo- 
cated for use as a record I/O buffer. Only one allocated 
buffer can exist for a file. 

ALLOCATED VARIABLE - A variable for which storage 
has been reserved and not freed. 

ALLOCATION - The process of reserving storage for a 
variable. 

ALLOCATION UNIT - The basic unit for allocating and 
freeing the storage associated with a generation. 

AMBIGUOUS REFERENCE - A reference that is not 
sufficiently qualified to identify one and only one 
structure member or substructure. 

AREA - Storage that is reserved, upon allocation, for the 
subsequent allocation of based generations. 

AREA VARIABLE - A variable that holds area values. An 
area variable can be of any storage type. 

ARGUMENT - An expression that is specified in the 
argument list of a function reference or a CALL 
statement. 



ARGUMENT LIST - A parenthesized list of one or more 
arguments separated by commas. Each argument in a 
procedure reference is passed to a corresponding 
parameter; each argument in a builtin function refer- 
ence represents a value to be passed to the function. 

ARGUMENT PASSED BY REFERENCE - An argument that 
shares a generation with the corresponding parameter. 

ARGUMENT PASSED BY VALUE - An argument that has a 
temporary generation that is not shared with the 
corresponding parameter; a dummy argument. 

ARITHMETIC CONSTANT - A constant arithmetic value 
with a mode, scale, base, and precision implied by the 
actual form of the constant. 

ARITHMETIC OPERATOR - An operator used in arith- 
metic operations. Arithmetic operators are + (posi- 
tive), - (negative), + (add), - (subtract), * (multiply), 
/ (divide), and ** (exponentiate). 

ARITHMETIC VARIABLE - A variable that has arithmetic 
values. 

ARRAY - A collection of data elements where each 
element has the same name and the same set of 
attributes. Contrast with structure. 

ARRAY BOUNDS - See Bounds. 

ARRAY CROSS SECTION - A portion of an array formed 
by selecting certain elements. The elements are 
selected by assigning definite constant values to some 
of the subscript positions and allowing other subscript 
positions to range from their lower bounds to their 
upper bounds. 

ARRAY SLICE - Synonymous with array cross section. 

ASSIGNMENT - The process of storing a source value into 
a target item. 

ATTRIBUTE - A descriptive and defining characteristic of 
data elements. 

AUTOMATIC VARIABLE - A data item that has storage 
allocated automatically when a block is activated and 
has storage released automatically when that block is 
terminated. 

BALANCED IF - An IF statement that has an ELSE clause. 

BASE - A characteristic of arithmetic data; either the 
BINARY or DECIMAL attribute. The base controls the 
meaning of the precision attribute and does not control 
the internal representation of values. 

BASED VARIABLE - A variable used to allocate and free 
based generations and to reference generations of any 
storage typ e » 

BASIC ACCESS METHODS (BAM) - A file manager within 
CYBER Record Manager that processes sequential and 
word addressable file organizations. 
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BEGIN BLOCK - A collection of statements headed by a 
BEGIN statement and terminated by a matching END 
statement. A begin block is activated when encoun- 
tered in sequential program flow or when control is 
transferred to the BEGIN statement by a GOTO 
statement. 



BIT CONSTANT - Synonymous with bit string constant. 

BIT STRING CONSTANT - A sequence of binary digits 
enclosed in apostrophes and followed by the radix 
factor B. A bit string constant does not represent an 
arithmetic value. 

BIT STRING OPERATOR - An operator used in bit string 
operations. Bit string operators are -i(NOT), & (AND), 
and I (OR). The concatenate operator II can also be 
used for bit strings. 

BLOCK - (1) As applied to PL/I, an area of a source 
program that delimits the scope of names, determines 
allocation and freeing of some kinds of data storage, 
and influences program flow of control. (2) As applied 
to CYBER Record Manager, the term block has several 
meanings depending on context. On tape, a block is 
information between interrecord gaps on tape. Block 
type C can be used for PL/L CRM defines several 
blocks depending on organization. 



Organization 


Blocks 


Indexed sequential 
Sequential 


Data block; index block 
Block type I, C, K, E 



BLOCK ACTIVATION - A specific execution of a block; 
the process of activating a block. 

BLOCK TERMINATION - The removal of a block activa- 
tion from the dynamic stack; the dynamic predecessor 
becomes the current block activation. Block termina- 
tion is classified as normal or abnormal. 

BOI (BEGINNING-OF-INFORMATION) - CYBER Record 
Manager defines beginning-of-information as the start 
of the first user record in a file. System-supplied 
information, such as an index block or control word, 
does not affect beginning-of-information. Any label on 
a tape exists prior to beginning-of-information. 

BOOLEAN OPERATION - An algebraic operation on 
entities with two possible values, such as the individual 
bits found in a bit string. 

BOUNDS - The lower bound and upper bound of a single 
dimension of an array. 

BUFFER - See Allocated buffer. 

BUILTIN FUNCTION - A function supplied by the lan- 
guage; performs a specific operation, usually on one or 
more arguments, and returns a single value as a result. 

CHARACTER CODE - A code that specifies the type of 
character that can appear in each position. Character 
codes are 9 (digit or blank), A (letter A through Z or 
blank), and X (any character). 

CHARACTER CONSTANT - Synonymous with character 
string constant. 



CHARACTER PAIR - Occurrence of two consecutive 
characters. 

CHARACTER STRING CONSTANT - A sequence of char- 
acters, including blanks, enclosed in apostrophes. 

CLOSURE NAME - An optional name on an END statement 
denoting the block or do group that is to be closed. The 
name must match an entry name on a PROCEDURE 
statement, a label on a BEGIN statement, or a label on 
a DO statement. 

COMMENT - A sequence of characters preceded by the 
character pair /* and followed by the character pair */. 
Comments are used for documentation purposes only. 

COMMON BASE - The base that is common to a set of 
operands. The common base is DECIMAL if the base of 
all operands is DECIMAL; otherwise, the common base 
is BINARY. 

COMMON DATA TYPE - The data type that is common to 
a set of operands. The common data type for a set of 
arithmetic operands is formed by taking the common 
base and the common scale of the operands. 

COMMON SCALE - The scale that is common to a set of 
operands. The common scale is FIXED if the scale of 
all operands is FDCED; otherwise, the common scale is 
FLOAT. 

COMPARISON OPERATOR - An operator used in compar- 
ison operations. Comparison operators are the infix 
operators = (equal), - 1= (not equal), < (less than), <= (less 
than or equal), - 1< (not less than), > (greater than), 
>= (greater than or equal),-i> (not greater than). 

COMPOUND STATEMENT - A statement that can contain 
embedded statements. IF and ON are classified as 
compound statements. 



COMPUTATIONAL TYPE 
pictured data type. 



Arithmetic, bit, character, or 



CONCATENATE OPERATOR - The operator II for char- 
acter strings or bit strings. 

CONCATENATION - An operation in which two strings are 
joined to form one string. 

CONDITION - An unusual situation that can occur during 
execution and can result in a program interrupt. 

CONDITION BUILTIN FUNCTION - A builtin function that 
returns information concerning interrupts. A refer- 
enced condition builtin function name returns such 
information as the location and cause of an interrupt. 
Condition builtin functions are ONCHAR, ONCODE, 
ONFILE, ONKEY, ONLOC, and ONSOURCE. 

CONDITION NAME - A keyword that denotes a condition 
that might occur during program execution. Condition 

nomojs nrtnooi* In tha ftM BPVT?PT anH KTrcKTAT. 

statements. 

CONDITION PREFDC - A parenthesized computational 
condition name or list of computational condition names 
that precede a statement. The condition prefix enables 
or disables program interrupts that can result when 
computational conditions are raised. 

CONNECTED GENERATION - A generation whose storage 
description part specifies data items that are con- 
tiguous in storage. 
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CONSTANT - A data element with a value that does not 
change during program execution. 

CONTAINED TEXT - All text that appears in a block or 
on-unit, including text in nested (contained) blocks. 
Also see Immediately contained text. 

CONTEXTUAL DECLARATION - The establishment of a 
set of attributes for an identifier because the identifier 
has been used in a certain context, but has not been 
explicitly declared. 

CONTROLLED VARIABLE - A variable that has genera- 
tions maintained in a stack with only the top entry 
accessible at any one time. 

CONVERSION - The transformation of a value to another 
computational type or to another data type. 

COPY FILE - The file to which characters read in during a 
GET statement execution with the COPY option are 
copied. 

CRM - CYBER Record Manager. 

CRN! FILE - A local file known to CYBER Record Manager 
and the operating system. Contrast with file. 

CURRENCY CODE - The picture code $ (dollar sign). 

CURRENT BLOCK ACTIVATION - The block activation 
most recently activated and not yet terminated, that is, 
the top activation in the dynamic stack. 

CURRENT ESTABLISHED ON-UNIT - The on-unit that will 
be activated when the applicable condition is raised and 
an interrupt occurs. 



CURRENT-RECORD DESIGNATOR - An indicator 
identifies the current record to be processed. 



that 



CYBER RECORD MANAGER (CRM) - A generic term 
relating to the common products AAM and BAM that 
run under the NOS and NOS/BE operating systems and 
that allow a variety of record types, blocking types, and 
file organizations to be created and accessed. 

DATA ELEMENT - A specification or representation of a 
value or values in the program. 

DATA TYPE - The type of value represented by a variable 
or named constant. 

DECIMAL POINT CODE - The picture code V (assumed 
decimal point). 

DECLARATION - The establishment of an identifier with a 
set of attributes. Declarations are explicit, contextual, 
or implicit. 

DEFINED VARIABLE - A variable that shares storage with 
another variable referred to as the host variable. 

DELIMITER - One of a class of characters that serve to 
delimit statement elements such as words and literal 
constants. 

DESCRIPTOR - The establishment of a set of attributes 
for a particular position in a parameter list or for the 
value returned from a procedure that is invoked as a 
function. A descriptor differs from a declaration in 
that there is no identifier. 



DIGIT CODE - A code that specifies a character position 
in which a decimal digit can appear. Digit codes are 
9 (digit), Z (leading zero suppression), * (leading zero 
replacement), and Y (zero suppression). 

DIMENSION - An array has a specified number of dimen- 
sions; each dimension is a repetition of the array 
element the number of times indicated by the span of 
the dimension. 

DIMENSIONALITY - The number of dimensions in an array. 

DISABLED CONDITION - A condition that is in the dis- 
abled state; such a condition will not cause a program 
interrupt if it is raised. Contrast with enabled 
condition. 

DO GROUP - A collection of statements headed by a DO 
statement and terminated by a matching END state- 
ment. A do group is executed when encountered in 
sequential program flow or when control is transferred 
to the DO statement by a GOTO statement. 

DO-SPECIFICATION - The portion of an indexed DO that 
determines the number of times the group is executed. 

DO WHILE - An iterative do group. The WHILE expression 
controls the number of times the group is executed. 

DRIFTING SEQUENCE - A sequence of identical picture 
codes. The specified character is placed to the left of 
the most significant digit. One of the sign codes (S + -) 
or the currency code ($) can be used in a drifting 
sequence in a picture specification. 

DUMMY ARGUMENT - A temporary value created and 
stored when an argument is passed by value. When a 
reference is made to the corresponding parameter, the 
dummy argument rather than the original argument is 
accessed. 

DYNAMIC PREDECESSOR - A preceding block activation 
in the dynamic stack. 

DYNAMIC STACK - An ordered list of block and on-unit 
activations. The last activation in the list is termed the 
top of the stack. Additions to and deletions from the 
stack are made only at the top of the stack. Each 
activation in the stack holds a set of values describing 
the current state of the activation, including pointers to 
the program, generations of certain variables, and so 
forth. 

DYNAMIC SUCCESSOR - A succeeding block activation in 
the dynamic stack. 

EDIT-DIRECTED I/O - A form of stream I/O. The data is 
transmitted in accordance with a format specification 
supplied in the program. Contrast with list-directed 
I/O. 

EMBEDDED-DO - An indexed DO that specifies iteration 
in the list of target items or source values during 
stream I/O; used in GET or PUT statements. 

ENABLED CONDITION - A condition that is in the enabled 
state; such a condition will cause a program interrupt if 
it is raised, thus activating the current established 
on-unit. Contrast with disabled condition. 

ENTRY CONSTANT - An entry name that appears as an 
entry prefix on a PROCEDURE or ENTRY statement. 
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ENTRY POINT - A point at which a procedure can be 
invoked, and a complete description of all parameters 
and the returned value, if any. 

ENTRY PREFIX - A prefix used only on an ENTRY and 
PROCEDURE statement to establish an entry constant. 

ENTRY VALUE - A value that identifies both an entry 
point and a block activation. 

ENTRY VARIABLE - A variable that is declared with the 
ENTRY attribute; it can only be used as a parameter in 
an invoked procedure. 

ENVIRONMENT - (1) As applied to block or on-unit activa- 
tions, the list of successive immediate environments of 
the activation, where each immediate environment is an 
activation of the successively containing block or 
on-unit. (2) As applied to files, the information 
indicating the characteristics of the local CRM file, as 
supplied by default or overridden with ENVIRONMENT 
options. 

EOI (END-OF-INFORMATION) - CYBER Record Manager 
defines end-of-information in terms of the file organi- 
zation and file residence. 



File 
Organization 


File 
Residence 


Physical Position 


Sequential 

Word 
addressable 

Indexed 

Sequential 


Mass storage 

Labeled tape 
in SI, I, S, or 
L format 

Unlabeled 
tape in SI or 
I format 

Unlabeled 
tape in S or 
L format 

Mass storage 
Mass storage 


After last user record. 

After last user record 
and before any file 
trailer labels. 

After last user record 
and before any file 
trailer labels. 

Undefined. 

After last word allo- 
cated to file, which 
might be beyond the 
last user record. 

After record with 
highest key value. 



ESTABLISHED ON-UNIT - An on-unit made available for 
execution when a particular condition is subsequently 
raised and an interrupt occurs. An on-unit is estab- 
lished when the ON statement in which it appears is 
executed. An on-unit can be in an established state, 
but not be the current established on-unit if another 
subsequently established on-unit remains established. 

EXPLICIT ALLOCATION - The process of allocating stor- 
age by execution of an ALLOCATE statement. 

EXPLICIT DECLARATION - The establishment of a set of 
attributes for an identifier by DECLARE statement, or 
by its appearance in a parameter list, or as a statement 
prefix. 

EXPLICIT FILE OPENING - The process of opening a file 
by execution of an OPEN statement. 



EXPLICIT FREEING - The process of freeing storage by 
execution of a FREE statement. 

EXPONENT CODE - The picture code for the exponent. 
The exponent codes are E (supply E) and K (suppress E). 

EXPRESSION - A sequence of operators and operands 
arranged in a way defined as legal by the rules of PL/I 
so as to constitute a valid rule for computing a value. 

EXTENT - The bounds of an array dimension, the length (or 
maximum length) of a string, or the size of an area. 

EXTERNAL ENTRY CONSTANT - An entry name on the 
PROCEDURE or ENTRY statement of an external 
procedure. 

EXTERNAL PROCEDURE - A procedure block that is not 
contained in any other block. 



EXTRALINGUAL CHARACTER - A character that 
only be used in comments and character strings. 



can 



FILE - Contrast with CRM file. A file constant that has 
been opened, together with the completed file descrip- 
tion attributes and the associated CRM file. 

FILE CONSTANT - A constant that serves as a linkage to 
enable a PL/I program to communicate with external 
data storage (CRM files). 

FILE DESCRIPTION - A set of attributes defining the 
characteristics of a file. 

FILE INFORMATION TABLE (FIT) - A table through which 
a user program communicates with CYBER Record 
Manager. All CRM file processing executes on the basis 
of information in this table. 

FILE TITLE - A name that is either supplied in the TITLE 
option of the OPEN statement or formed by concate- 
nating the first four and last three characters of the 
file constant. 

FILE VARIABLE - A variable that is declared with the 
FILE attribute; it can only be used as a parameter in an 
invoked procedure. 

FIXED BINARY CONSTANT - An unsigned binary number 
containing an optional binary point at any position and 
followed by the radix factor B. 

FIXED DECIMAL CONSTANT - An unsigned decimal 
number containing an optional decimal point at any 
position. 

FIXED POINT - A method of calculation in which the 
location of the decimal or binary point is determined by 
the programmer, and a specified absolute precision is 
maintained. Contrast with floating point. 

FLOAT BINARY CONSTANT - An unsigned binary number 
containing an optional binary point at any position, 
followed by a decimal exponent and the radix factor B. 

FLOAT DECIMAL CONSTANT - An unsigned decimal 
number containing an optional decimal point at any 
position and followed by a decimal exponent. 

FLOATING POINT - A method of calculation in which the 
location of the decimal or binary point is determined 
automatically, and a specified relative position is 
maintained. Contrast with fixed point. 
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FLOW OF CONTROL - The execution sequence of a PL/I 
program. 



IMPLICIT FREEING - The process of freeing an allocated 
buffer by execution of a record I/O statement. 



FORMAT CONSTANT - A format name that appears in a 
format prefix on a FORMAT statement. 

FORMAT ITEM - An item used in edit-directed I/O to 
control the transmission of values, to control the 
spacing and positioning of the input or output data 
stream, and to control use of remote formats. Format 
items are F (fixed point decimal arithmetic), E (floating 
point decimal arithmetic), A (character string), B (bit 
string), P (pictured), X (ignore or create blanks), 
COLUMN (new column position), SKIP (skip lines), LINE 
(new line on a page), PAGE (next page), R (remote 
format list). 

FORMAT PREFIX - A prefix used only on the FORMAT 
statement to establish a format constant. 

FORMAT VALUE - A value that identifies both a format 
constant and a block activation. 

FREEING - The process of releasing storage for a variable. 

FULLY QUALIFIED REFERENCE - A reference to a 
structure member in which a structure-qualifier is 
included for each containing structure. 

FUNCTION - A procedure that returns a value. A function 
is only invoked by a function reference in an expression. 

FUNCTION REFERENCE - The use, in an expression, of 
the entry point name of a function so as to invoke the 
function and utilize its returned value in evaluating the 
expression. 

GENERATION OF STORAGE - An entity associated with a 
variable and created either when the variable is 
allocated or when the variable is referenced (for certain 
storage types). A generation contains a data descrip- 
tion for the variable and a storage description speci- 
fying the associated storage. 



HOST VARIABLE - The variable 
variable shares storage. 



with which a defined 



IDENTIFIER - A name used to identify and refer to data, 
statements, blocks, builtin functions, and programmer- 
named conditions. 

IMMEDIATE DYNAMIC PREDECESSOR - The immediately 
preceding block activation in the dynamic stack. 

IMMEDIATE ENVIRONMENT - an activation of the imme- 
diately containing block or on-unit. 

IMMEDIATELY CONTAINED TEXT - All text that appears 
in a block or on-unit, excluding text in nested (con- 
tained) blocks. 

IMPLICIT ALLOCATION - The process of allocating stor- 
age for an allocated buffer by execution of a READ or 
LOCATE statement. 

IMPLICIT DECLARATION - The establishment of a set of 
attributes for an identifier because the identifier has 
been used, but has not been explicitly or contextually 
declared. 

IMPLICIT FILE OPENING - The process of opening a file 
as a result of an I/O operation rather than by execution 
of an OPEN statement. 



INDEXED DO - An iterative do group; the list of do- 
specifications determines the number of times the 
group is executed. 

INDEXED SEQUENTIAL (IS) - A file organization in which 
records are stored in ascending order by key. 

INFIX EXPRESSION - Two operands separated by a single 
infix operator. 

INFIX OPERATOR - An operator that appears between 
two operands. The infix operators are + - * / ** 
& I || = -i= < <= -i< > >= and-i>. 

INHERITED DIMENSIONS - Dimensions added to the 
dimensions of a structure member as determined by the 
dimensionality of all containing structures. 

INITIAL VALUE - The value assigned to a variable when 
the variable is allocated. 

INSERTION CODE - A picture code that causes the inser- 
tion of a character in a specified position. The 
insertion codes are / (slash) , (comma) . (period) and 
B (blank). 

INTERMEDIATE CALCULATION - The evaluation of a 
subexpression to produce an intermediate value. 

INTERMEDIATE VALUE - The result of an operation to 
convert an operand to a different computational data 
type. Also, the result of a subexpression evaluation 
used as an operand in a subsequent subexpression 
evaluation in the same expression. 

INTERNAL ENTRY CONSTANT - An entry name on the 
PROCEDURE or ENTRY statement of an internal 
procedure. 

INTERNAL PROCEDURE - A procedure block that is 
contained in another block. 

INTERRUPT - The disruption of program flow that results 
when an enabled condition is raised. 

INVOCATION - The activation of a procedure. 

iSUB - An element used in array defining to indicate 
dummy positions for the substitution of subscript 
values; iSUB is used in connection with the DEFINED 
attribute specification. 

ITERATION FACTOR - An expression that indicates the 
number of consecutive array elements to be initialized 
or the number of times a format item is to occur. 

ITERATIVE DO GROUP - A do group that is executed 
repetitively according to controls specified in the DO 
statement. 

KEY - (1) As applied to PL/I, a character value used to 
identify a record on a KEYED file. (2) As applied to 
CYBER Record Manager, a group of contiguous char- 
acters that identify a record in an indexed sequential 
file. NOTE: When a KEYED file is opened on a local 
CRM file with WA organization, the PL/I keys used are 
character values that contain only digits, the repre- 
sented number being the relative record number on the 
CRM file; CRM keys are not involved here. 
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KEYWORD - An identifier that has special significance to 
the compiler and run-time routines when used in the 
context for which it was designed. 

LABEL CONSTANT - A label that appears in a label prefix 
on any statement except ENTRY, FORMAT, and 
PROCEDURE. 



LABEL PREFIX - The portion of a statement that identi- 
fies and provides reference to the statement. The 
prefix can be used on any statement except ENTRY, 
FORMAT, and PROCEDURE. 

LABEL VALUE - A value that identifies both a label 
constant and a block activation. 

LABEL VARIABLE - A variable that is declared with the 
LABEL attribute and that can be set to a label value. 

LANGUAGE CHARACTER SET - The set of characters 
that are defined as characters used in the PL/I 
language. 

LEVEL NUMBER - An integer that specifies the position of 
an identifier in the hierarchy of a structure. 

LIST-DIRECTED I/O - A form of stream I/O. The data is 
transmitted according to the data type of the trans- 
mitted value. Contrast with edit-directed I/O. 

LITERAL CONSTANT - An unnamed data item that has a 
scalar computational value. Literal constants are 
arithmetic, character string, or bit string. 

LOCAL FILE NAME - The name of a local CRM file as 
known by CYBER Record Manager and the operating 
system. The name consists of letters A through Z and 
digits through 9; the name must be one to seven 
characters in length and must begin with a letter. 

LOCAL GOTO - A GOTO statement that transfers control 
to a label value such that the label constant part 
identifies a statement immediately contained in the 
same block as the GOTO statement and such that the 
block activation part identifies the current block 
activation. 

LOCAL REFERENCE - A reference to an identifier that is 
declared in the same block as the reference. 

LOCATOR-QUALIFIED REFERENCE - One form of refer- 
ence to a based variable. 

LOCATOR QUALIFIER - A term that refers to both the 
locator and the -> symbol in a locator-qualified 
reference. 

LOCATOR VARIABLE - A variable that holds locator 
values, that is, pointer or offset values. 

LOGICAL RECORD - A data grouping under NOS that 
consists of one or more PRUs terminated by a short 
PRU or zero-length PRU; equivalent to a system- 
logical-record under NOS/BE. 

LOWER BOUND - The lower limit of subscript values for a 
particular dimension of an array. 

MAIN PROCEDURE - The single external procedure that 
includes the OPTIONS(MAIN) clause on the PRO- 
CEDURE statement. Program execution is initiated at 
the primary entry point of the main procedure. 



MANTISSA — The portion of a floating point number that is 
raised to the power specified by the exponent portion. 

MEMBER - A variable that is contained in a structure. 

MODE - A characteristic of arithmetic data; mode is 
specified by the REAL attribute, which indicates that 
the data has no imaginary part. 

NAMED CONSTANT - An identifier representing a non- 
computational value that does not change during pro- 
gram execution. 

NESTING - The occurrence of a block within another 
block; a group within another group; an IF statement in 
a THEN or ELSE clause; a function reference as an 
argument of a function reference; a remote format 
item in the format list of a FORMAT statement; a 
parameter descriptor list in another parameter descrip- 
tor list. 



NOISE RECORD - Number of characters the tape drivers 
discard as being extraneous noise rather than a valid 
record. Value depends on installation settings. 

NONCOMPUTATIONAL VARIABLE - A variable used to 
represent area, locator, or named constant values. 

NONITERATIVE DO GROUP - A do group that is executed 
once each time it is encountered in the program. 

NONLOCAL GOTO - A GOTO statement that transfers 
control to a label value such that the label constant 
part identifies a statement not immediately contained 
in the same block as the GOTO statement, or such that 
the block activation part identifies a block activation 
other than the current block activation. 

NONLOCAL REFERENCE - A reference to an identifier 
that is declared in a containing block. 

NORMAL BLOCK TERMINATION - Termination of a block 
activation in a manner such that control returns in the 
normal manner to the predecessor block activation. 
Execution of the END statement of a currently active 
block causes normal termination of that block activa- 
tion. Execution of a RETURN statement causes normal 
termination of the most recently activated procedure 
block activation. 

NORMAL ON-UNIT TERMINATION - Termination of an 
on-unit activation in a manner such that control returns 
to the point of interrupt. Execution of the END 
statement of an on-unit causes normal termination of 
that on-unit activation. Completion of execution of a 
single statement on-unit, when that statement is not a 
GOTO, causes normal termination of that on-unit 
activation. 

NULL ARGUMENT LIST - A set of ern^t" parentheses ( ) 
used as an argument list. 

NULL ON-UNIT - An on-unit represented by a ; (semi- 
colon). A null on-unit indicates no action is to be taken 
for the raised condition. 

NULL STRING - A data string that has a length of zero. 

OFFSET - A value that identifies the position of a based 
variable in an area, relative to the beginning of the 
area. 
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ON-UNIT - Action to be taken when the condition speci- 
fied in an ON statement is raised and results in an 
interrupt. 



ON-UNIT ACTIVATION - A specific execution 
on-unit; the process of activating an on-unit. 



of 



ON-UNIT TERMINATION - The removal of an on-unit 
activation from the dynamic stack. On-unit termina- 
tion is classified as normal or abnormal. 

OPERAND - An expression used in conjunction with an 
operator so that the indicated operation utilizes the 
value of the expression. 

OPERATOR - A symbol that specifies an operation to be 
performed. See Arithmetic operator, Bit string opera- 
tor, Concatenate operator, and Comparison operator. 

OVERFLOW - A situation in which the result of a floating 
point calculation yields an exponent that exceeds the 
maximum allowed by the hardware. 

PAGE EJECTION - Line printer action that advances paper 
to a new page. 

PARAMETER - See Parameter variable. 

PARAMETER DESCRIPTOR - The establishment of a set 
of attributes for a particular position in a parameter 
list. A descriptor differs from a declaration in that 
there is no identifier. 

PARAMETER VARIABLE - A variable name that appears 
in a parameter list of a PROCEDURE or ENTRY 
statement. The variable name is used to refer to an 
argument received by a procedure. 

PARTIALLY QUALIFIED REFERENCE - A reference that 
includes zero or more, but not all, names in the 
hierarchical structure above a member. 

PARTITION - CYBER Record Manager defines a partition 
as a division within a file with sequential organization. 
Generally, a partition contains several records or 
sections. Implementation of a partition boundary is 
affected by file structure and residence. 



Device 


RT 


BT 


Physical Boundary 


PRU 
device 


W 


C 


A short PRU of level 
containing a control word 
with a flag indicating 
partition boundary. 




F,Z 


C 


A short PRU of level 
followed by a zero-length 
PRU of level 17. 


SorL 

tape 

format 


W 


C 


Separate tape block con- 
taining as many deleted 
records or record length 
as required to exceed 
noise record size, fol- 
lowed by a control word 
with a flag indicating a 
partition boundary. 




F,Z 


C 


Tapemark 




S 


C 


Zero-length PRU of level 
number 0. 


Any other tape f < 


>rmat 


Undefined 



In a file with W type records, a short PRU of level 
terminates both a section and a partition. 

PICTURE - A group of codes that describe the type and 
form of a specific pictured data item. The picture 
specification is enclosed in apostrophes. 

PICTURED CHARACTER ITEM - A character value asso- 
ciated with a picture that contains only character 
codes. 

PICTURED NUMERIC ITEM - A character value asso- 
ciated with a picture that contains a valid combination 
of the codes 9 Z * Y (digit); V (decimal point); 
S + -(sign position); TIR (signed digit); CR DB (sign 
suffix); $ (currency); /,. B (insertion); F (scaling 
factor); and K E (exponent). 

PICTURED VARIABLE - A variable that holds values under 
control of a declared picture. 

PL/I FILE - See File. 

POINT OF INTERRUPT - The point at which a condition, 
which results in a program interrupt, is raised during 
program execution. 

POINTER - A value that identifies the position of storage 
allocated for a variable. 

PRECISION - The value that establishes the number of 
significant digits for an arithmetic value. 

PREFDC - The portion of a statement that precedes the 
statement body; prefixes are classified as condition and 
statement. 

PREFIX EXPRESSION - A single prefix operator and a 
single operand. 

PREFIX OPERATOR - An operator that operates on a 
single operand. The prefix operators are + (positive), 
- (negative), ~i (NOT). 

PRIMARY ENTRY POINT - An entry point denoted by a 
prefix on the PROCEDURE statement. 

PRIMITIVE EXPRESSION - A literal constant, variable 
reference, or function reference used for its value in an 
expression. 

PRINT FILE - A stream file intended for printing on a line 
printer. 

PROCEDURE BLOCK - A collection of statements headed 
by a PROCEDURE statement and terminated by a 
matching END statement. A procedure block is 
activated when invoked at any entry point. 

PROCEDURE INVOCATION - The process of activating a 
procedure by execution of a CALL statement or 
evaluation of a function reference. 

PROGRAM - A set of one or more external procedures, 
including one main procedure. 

PROGRAM ABORT - Immediate program termination; 
occurs when the system ERROR on-unit is activated, 
when the STORAGE on-unit cannot be activated, and 
when a missing external procedure is invoked. 

PROGRAM INTERRUPT - See Interrupt. 
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PROGRAM TERMINATION - Termination of the first or 
only activation of the main procedure, or execution of 
a STOP statement. 

PROGRAMMED ON-UNIT - Programmer-generated code 
that specifies the action to be taken when a condition is 
raised and an interrupt occurs. 

PROGRAMMER-NAMED CONDITION - A condition that is 
defined by the programmer through keyword 
CONDITION; can be raised only by SIGNAL statement. 

PROLOGUE - Actions taken when a block is activated. 
Actions include evaluation of extents, processing of 
automatic and defined variables, and establishment of 
appropriate condition builtin functions. 

PRU (PHYSICAL RECORD UNIT) - Under NOS and 
NOS/BE, the amount of information transmitted by a 
single physical operation of a specified device. A PRU 
that does not contain as much user data as the PRU can 
hold is called a short PRU; a PRU that has a level 
terminator but no user data is called a zero-length 
PRU. The size of a PRU depends on the device. 



Device 


Size in Number 
of 60-Bit Words 


Mass storage 


64 


Tape in SI format with coded data 


128 


Tape in SI format with binary data 


512 


Tape in I format 


512 


Tape in other format 


Undefined 


Not supported under NOS. 



RECORD TYPE - The term record type can have one of 
several meanings, depending on the context. CYBER 
Record Manager defines eight record types established 
by an RT field in the File Information Table. Tables 
output by the loader are classified as record types such 
as text, relocatable, or absolute, depending on the first 
few words of the tables. Record types F, Z, W, and S 
can be used for data transmission in PL/I. 



RECURSION - The activation of a block that is already 
active. 



REFERENCE - The appearance of an identifier in any 
context other than one that represents an explicit 
declaration of the identifier. 



REMOTE FORMAT ITEM - The letter R and the parenthe- 
sized remote-format name that appears in a format- 
specification. 



REPETITION FACTOR - A parenthesized value indicating 
the number of times a character or bit constant is 
repeated, or the number of times a picture code occurs. 



RETURNED VALUE - The value returned from a procedure 
invoked as a function, or the value returned by a builtin 
function. 



RETURNS DESCRIPTOR - The establishment of a set of 
attributes for the value returned from a procedure that 
is invoked as a function. A descriptor differs from a 
declaration in that there is no identifier. 

SCALAR - A data item that represents a single value. 



PRU DEVICE - A mass storage device or a tape in SI or I 
format. Records on these devices are written in PRUs. 

PSEUDOVARIABLE - A builtin function name that is used 
as the target of an assignment operation. Pseudo- 
variables are ONCHAR, ONSOURCE, PAGENO, 
SUBSTR, and UNSPEC. 

RADK FACTOR - The suf f ix B that indicates a binary 
base; used for binary arithmetic constants and for bit 
string constants. 



SCALE - A characteristic of arithmetic data; either the 
FDCED or FLOAT attribute. The scale controls whether 
the fixed point or floating point method of calculation 
is used. 



SCALING FACTOR CODE - The picture code F (scaling 
factor for arithmetic value). 



SCOPE OF CONDITION PREFIX— The portion of the 
program within which a condition prefix applies. 



RECORD - (1) As applied to PL/I, a unit of information for 
transmission by record I/O; the contents of an 
allocation unit represented in internal form. (2) As 
applied to CYBER Record Manager, a group of related 
characters. A record or a portion thereof is the 
smallest collection of information passed between CRM 
and a user program. Eight different record types exist, 
as defined by the ET field of the rile information 
Table. Other parts of the operating systems and their 
products might have additional or different definitions 
of records. 

RECORD I/O - The input or output of complete records 
transmitted in internal form. Transmission is by READ, 
WRITE, REWRITE, DELETE, and LOCATE statements. 



SCOPE OF DECLARATION - The portion of the program 
within which a declared identifier is known. 



SECONDARY ENTRY POINT - An entry point denoted by 
a prefix on an ENTRY statement. 



SECTION - CYBER Record Manager defines a section as a 
division within a file with sequential organization. 
Generally, a section contains more than one record and 
is a division within a partition of a file. A section 
terminates with a physical representation of a section 
boundary. 
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Device 


RT 


BT 


Physical Representation 


PRU 
device 


W 


C 


Control word with flags 
indicating a section 
boundary. The control 
word is in a short PRU of 
level 0. 




F,Z 


C 


Short PRU with level less 
than 17 octal. 




S 


C 


Undefined. 


SorL 

format 

tape 


W 


C 


A separate tape block 
containing as many 
deleted records of 
record length required 
to exceed noise record 
size followed by a control 
word with flags indicating 
a section boundary. 




F,Z 


C 


Undefined. 




S 


C 


Undefined. 


Any other tape f 01 


mat 


Undefined. 



The NOS and NOS/BE operating systems equate a 
section with a system-logical-record of level 
through 16 octal. 

SEQUENTIAL (SQ) - (1) As applied to PL/I, a type of 
record file in which records can be accessed in a 
sequential manner. (2) As applied to CYBER Record 
Manager, a file organization in which records are stored 
in the order they were generated. 

SHORT PRU - A PRU that does not contain as much user 
data as the PRU can hold and that is terminated by a 
system terminator with a level number. Under NOS, a 
short PRU defines EOR. Under NOS/BE, a short PRU 
defines the end of a system-logical-record. In the 
CYBER Record Manager context, a short PRU can have 
several interpretations depending on the record and 
blocking types. 

SIGN POSITION CODE - A picture code that specifies 
placement of a sign or a blank. The sign position codes 
are S (sign), + (positive), and - (negative). 

SIGN SUFFIX CODE - A picture code that specif ies place- 
ment of a character pair as a suffix that indicates the 
sign. The sign suffix codes are CR (credit) and 
DB (debit). 



SIGNED DIGIT CODE - One of the picture 

T(overpunch, positive or negative), Koverpunch 
positive), and R (overpunch negative). 

SIMPLE REFERENCE - A reference to a variable or a 
named constant. 



SINGLE STATEMENT - A statement that cannot contain 
embedded statements and can be executed. All 
statements except compound statements (IF and ON), 
group statements (BEGIN, DO, and PROCEDURE), and 
the FORMAT statement are classified as single 
statements. 



SNAP OUTPUT - Diagnostic information that is written to 
file SYSPRINT when an interrupt occurs; specified by 
the SNAP option in the ON statement. 

SPACE - A blank character. 

SPAN - The number of possible subscript values for a 
particular dimension of an array, as established by the 
lower bound and upper bound. 

STACK - See Dynamic stack. 

STANDARD SYSTEM ACTION - The system-specified 
action to be taken when an interrupt occurs and a 
programmed on-unit for the appropriate condition does 
not exist. 

STATEMENT - An instruction that consists of the language 
keywords in combination with programmer-supplied 
elements; establishes names to be used in the program, 
states the characteristics that are to be associated with 
the names, and describes the operations to be per- 
formed at run time. 

STATEMENT BODY ■*- The portion of a statement between 
the prefix and the semicolon. 

STATEMENT PREFIX - The portion of a statement that 
identifies and provides a means of referencing the 
statement; classified as entry, format, and labeL 

STATIC VARIABLE - A variable that has storage allocated 
before execution begins. 

STORAGE ALLOCATION - The reserving of storage for a 
variable or buffer. 

STREAM I/O - Transmission of input or output data where 
the data is considered as a continuous stream of 
characters; transmission is by GET and PUT statements. 

STRING - A sequence of contiguous characters or bits 
treated as a unit. 

STRING VARIABLE - A variable that holds string values. 

STRUCTURE - A collection of data elements where each 
element can have a different name and a different set 
of attributes. Contrast with array. 

STRUCTURE-QUALIFIED REFERENCE - One form of 
reference to a member of a structure. 

SUBEXPRESSION - An expression that is part of a larger 
expression. 

SUBROUTINE - A procedure that is invoked by CALL 
statement execution. 

SUBSCRIPT — A value used to select an element in a 
particular dimension of an array. 

SUBSCRIPTED REFERENCE - A reference to one or more 
elements of an array. 

SUBSTRING - A character string that is part of a larger 
string. 

SUBSTRUCTURE - A structure member that is a structure 
with members. 

SYNTAX - The rules governing the structure of PL/I 
language components. 
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SYSIN - System default input file for program execution; 
associated with CRM file INPUT. 



SYSPRINT - System default output file for program execu- 
tion; associated with CRM file OUTPUT. Also used at 
run time as the error file. 

SYSTEM-LOGICAL-RECORD - Under NOS/BE, a data 
grouping that consists of one or more PRUs terminated 
by a short PRU or zero-length PRU. These records can 
be transferred between devices without loss of struc- 
ture. Equivalent to a logical record under NOS. 
Equivalent to a CYBER Record Manager S type record. 

SYSTEM ON-UNIT - An on-unit specifying the standard 
system action for a particular condition. - 

TARGET VARIABLE - A variable to which a value is 



UNCONDITIONAL TRANSFER 
statement. 



The execution of a GOTO 



TERMINATION OF A BLOCK - See Block termination. 

TERMINATION OF AN ON-UNIT - See On-unit 
termination. 

TITLE - See File title 

UNALIGNED VALUE - A value not necessarily aligned on a 
word boundary in storage. 



UNDERFLOW - A situation that occurs when the result of 
a floating point calculation yields an exponent that is 
smaller than the minimum allowed by the hardware. 

UPPER BOUND. ~ The upper limit of subscript values for a 
particular dimension of an array. 

VARIABLE — An established identifier representing a value 
or values that can change during program execution. 

WORD - A sequence of characters formed from the lan- 
guage character set; classified as keyword or identifier. 

WORD ADDRESSABLE (WA) - A file organization in which 
records are identified by a key. The key indicates the 
relative record number within the file. 

ZERO-BYTE TERMINATOR - A series of 12 zero bits in 
the low order position of a word. The terminator marks 
the end of the line to be displayed at a terminal or 
printed on a line printer. The image of cards input 
through the card reader or terminal also has such a 
terminator. 



ZERO-LENGTH PRU - A PRU that contains system infor- 
mation, but no user data. Under CYBER Record 
Manager, a zero-length PRU of level 17 is a partition 
boundary. Under NOS, a zero-length PRU defines EOF. 
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KEYWORDS AND BUILTIN FUNCTION NAMES 



This appendix provides an 


alphabetic list of PL/I keywords 


Keyword 


Recognized in appropriate 


and builtin function names.. ... v ..,...._. v . ..-,, .. 


;. The kovwnrds (and the kevword 


or identifier 


context as: 


abbreviations) are not reserved words; the special recogni- 






tion of a keyword occurs 


only in the appropriate 


context. 


BEFORE 


Builtin function 


The builtin function names (and the abbreviations) 


are not 






keywords and not reserved words; the builtin function names 


BEGIN 


Statement 


are special identifiers i 


ased to reference the 


supplied 






functions. 






BINARY 
BIN 


Attribute 


Shading indicates keywords and builtin function names that 






are not recognized. 






BINARY 
BIN 


Builtin function 




NOTE 
N" and SY5PR1N T : should 




BIT 
BIT 


Attribute 


The identifiers SYSI 


be 


Builtin function 


ire.itfil as reserved 


identifiers. SYSIN is 


the 






default input file for stream I/O; SYSPRINT is 


the 


BOOL 


Builtin function 


dof-u'.'. out;jul fi> 


■ : <>r stre.-im I/O r.vx r.m-time 






en or .m>Ks.ig';s. 






BUILTIN 
BY 


Attribute 

Option in do-specification in 


Keyword 


Recognized in appropriate 




LIST or EDIT option (GET, PUT) 


or identifier 


context as: 














BY 


Statement option (DO) 


A 


Format item 




BY "TV.1E 


Statement option (Assignment) 


ABS 


Builtin function 








ACOS 


Builtin function 




C,-yy'-''i :i y.\ ; }\'- ''''■-'■yy. 


Format item 


ADD 


Builtin function 




CALL 


Statement 


ADDR 


Builtin function 




CEIL 


Builtin function 


AFTER 


Builtin function 




CHARACTER 
CHAR 


Attribute 


ALIGNED 


Attribute 




CHARACTER 


Builtin function 


ALLOCATE 


Statement 




CHAR 




ALLOC 






CLOSE 


Statement 


ALLOCATION 


Builtin function 








ALLOCN 






COLLATE 


Builtin function 


AREA 


Attribute 




COLUMN 
COL 


Format item 


AREA 


Condition 




COMPLEX 


Attribute 


ASIN 


Builtin function 




CPLX 




ATAN 


Builtin function 




COMPLEX 
CPLX 


Builtin function 


ATAND 


Builtin function 




CONDITION 


Attribute 


ATANH 


Builtin function 




COND 




AUTOMATIC 


Attribute 




CONDITION 


Condition 


AUTO 






COND 

CONJG 


Built in f i) up t ion 


B 


Format item 










Format items 




CONSTANT 


Attribute: 


r>l.B2,B3,B4 




A Al»£L..l- 








CONTROLLED 


Attribute 


BASED- 


Attribute 




CTL 
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Keyword 


Recognized in : 


appropriate 


Keyword 


Recognized in appropriate 


or identifier 


context 


as: 


or identifier 
ENDPAGE 


context as: 


CONVERSION 


Condition 




Condition 


CONV 






ENTRY 


Attribute 


CONVERSION 


Enabled-condition name 






CONV 






ENTRY 


Statement 


COPY 


Builtin function 




ENVIRONMENT 
ENV 


Attribute 


COPY 


Statement option (GET) 












ENVIRONMENT 


Statement option (CLOSE, 


COS 


Builtin function 




ENV 


OPEN) 


COSD 


Builtin function 




ERF 


Builtin function 


COSH 


Builtin function 




ERFC 
ERROR 


Builtin function 
Condition 


DATA 


Statement option 


(GET, PUT) 


EVERY 


Builtin function 


DATE 


Builtin function 




EXP 


Builtin function 


DECAT 


Builtin function 




EXTERNAL 


Attribute 


DECIMAL 


Attribute 




EXT 




DEC 










DECIMAL 


Builtin function 




F 


Format item 


DEC 






FILE 


Attribute 


DECLARE 


Statement 








DCL 






FILE 


Statement option (I/O state- 
ments) 


DEFAULT 


Statement 








DFT 






FINISH 


Condition 


DEFINED 


Attribute 




FKED 


Attribute 


DEF 






FIXED 


Builtin function 


DELETE 


Statement 




FDCEDOVERFLOW 


Condition 


DIMENSION 


Attribute 




FOFL 




DIM 






FIXEDOVERFLOW 


Enabled-condition name 


DIMENSION 


Builtin function 




FOFL 




DIM 






FLOAT 


Attribute 


DIRECT 


Attribute 




FLOAT 


Builtin function 


DIRECT 


Statement option (OPEN) 












FLOOR 


Builtin function 


DIVIDE 


Builtin function 




FORMAT 


Attribute 


DO 


Option in LIST or 


EDIT option 




:}ii:f^ss;^mmt:imm'mBKmxmmmg*m:i 




(GET, PUT) 




FORMAT 


Statement 


DO 


Statement 




FREE 


Statement 


DOT 


iJuiltin function 




FROM 


Statement option (WRITE, 
REWRITE) 


E 


Format item 








EDIT 


Statement option (GET, PUT) 


GENERIC 


Attribute 


ELSE 


Statement option (IF) 


GET 


Statement 


EMPTY 


Builtin function 




GOTO 
GOTO 


Statement 


END 


Statement 








ENDFILE 


Condition 




HBOUND 


Builtin function 
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Keyword 
or identifier 



HIGH 



Recognized in appropriate 
context as: 

Builtin function 



Keyword 
or identifier 



LOW 



Recognized in appropriate 
context as: 

Builtin function 



IF 

IGNORE 
MAG 
IN 

lilliiiHI 

INDEX 

INITIAL 
INIT 

INPUT 

INPUT 

INTERNAL 
INT 

INTO 

KEY 
KEY 

KEYED 
KEYED 
KEYFROM 

KEYTO 

LABEL 

LBOUND 

LENGTH 

LIKE 

LINE 

LINE 

LINENO 

LINESIZE 

LIST 

LOCAL 

LOCATE 

LOG 

LOG10 

LOG2 



Statement 

Statement option (READ) 

Statement option (ALLOCATE, 
FREE) 

Pre-processor statement 

Builtin function 

Attribute 

Attribute 

Statement option (OPEN) 

Attribute 

Statement option (READ) 

Condition 

Statement option (READ, 
DELETE, REWRITE) 

Attribute 

Statement option (OPEN) 

Statement option (WRITE, 
LOCATE) 

Statement option (READ) 

Attribute 

Builtin function 

Builtin function 

Attribute 

Format item 

Statement option (PUT) 

Builtin function 

Statement option (OPEN) 

Statement option (GET, PUT) 

attribute 

Statement 

Builtin function 

Builtin function 

Builtin function 



MAIN 


Option in OPTIONS option 
(PROCEDURE) 


MAX 


Builtin function 


MEMBER 


At t rib lie 


MIN 


Builtin function 


MOD 


Builtin function 


MULTIPLY 


Builtin function 



NAME 

NOCONVERSION 
NOCONV 

NOFIXEDOVERFLOW 
NOFOFL 

NONE 

NONVARYING 
NONVAR 

NOOVERFLOW 
NOOFL 

NOSIZE 

NOSTRINGRANGE 
NOSTRG 

NOSTRINGSIZE 
NOSTRZ 

NOSUBSCRIPTR ANG E 
NOSUBRG 

NOUNDERFLOW 
NOUFL 

NOZERODMDE 
NOZDIV 

NULL 



OFFSET 

OFFSET 

ON 

ONCHAR 

ONCHAR 

ONCODE 

ONFIELD 

ONFILE 

ONKEY 



Condition 
Disabled-condition name 

Disabled-condition name 

Statement option (DEFAULT) 

|J|j^pBj!i|iiilllllllllliS| 

Disabled-condition name 

Disabled-condition name 
Disabled-condition name 

Disabled-* mdition nam - 

Disabled-condition name 

Disabled-condition name 

Disabled-condition name 

Builtin function 

Attribute 
Builtin function 
Statement 
Builtin function 
Pseudovariable 
Builtin function 
Builtin function 
Builtin function 
Builtin function 
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Keyword 
or identifier 


Recognized in 
context 


appropriate 
as: 


Keyword 
or identifier 

REAL 


Recognized in appropriate 
context as: 


ONLOC 


Builtin function 




Attribute 


ONSOURCE 


Builtin function 




REAL 


Builtin function 


ONSOURCE 


Pseudovariable 




RECORD 


Attribute 


OPEN 


Statement 




RECORD 


Condition 


OPTIONS 


Statement option (PROCEDURE) 


RECORD 


Statement option (OPEN) 


OUTPUT 


Attribute 




RECURSIVE 


Statement option (PROCEDURE) 


OUTPUT 


Statement option 


(OPEN) 


REFER 


Option in extent (DECLARE) 


OVERFLOW 
OFL 

OVERFLOW 
OFL 


Condition 
Enabled-condition name 


REPEAT 
RETURN 
RETURNS 


Statement option (DO) 

Statement 

Attribute 


P 


Format item 




RETURNS 


Statement option (PROCEDURE, 
ENTRY) 


PAGE 


Format item 




REVERSE 


Builtin function 


PAGE 


Statement option 


(PUT) 


REVERT 


Statement 


PAGENO 


Builtin function 




REWRITE 


Statement 


PAGENO 


Pseudovariable 




ROUND 


Builtin function 


PAGESIZE 


Statement option 


(OPEN) 






PARAMETER 

PARM 


attribute 




SEQUENTIAL 
SEQL 


Attribute 


PICTURE 
PIC 


Attribute 




SEQUENTIAL 
SEQL 


Statement option (OPEN) 


POINTER 
PTR 


Attribute 




SET 


Statement option (ALLOCATE, 
LOCATE, READ) 


POINTER 
PTR 

POSITION 
POS 


Builtin function 
Attribute 




SIGN 

SIGNAL 

SIN 


Builtin function 
Statement 
Builtin function 


PRECISION 
PREC 

PRECISION 
PREC 


Attribute 
Builtin function 




SIND 
SINH 
SIZE 


Builtin function 
Builtin function 
Condition 


PRINT 


Attribute 




SIZE 


Enabled-condition name 


PRINT 


Statement option (OPEN) 


SKIP 


Format item 


PROCEDURE 
PROC 


Statement 




SKIP 


Statement option (GET, PUT) 


PROD 


Iftiiltin function 




SNAP 
SOME 
SQRT 


Statement option (ON) 


PUT 


Statement 




Builtin function 
Builtin function 


R 


Format item 




STATIC 


Attribute 


RANGE 


Statement option 


(DEFAULT) 


STOP 


Statement 


READ 


Statement 




STORAGE 


Condition 



D-4 



60388100 A 



Keyword 


Recognized in appropriate 


Keyword 


Recognized in appropriate 


or identifier 


context as: 


or identifier 
TO 


context as: 


STREAM 


Attribute 


Statement option (DO) 


STREAM 


Statement option (OPEN) 


TRANSLATE 


Builtin function 


Sl'KINi.; 


liiiiltin function 


TRANSMIT 


Condition 


STRING 


l'seuuovarmblv 


TRUNC 


Builtin function 


STRING 


Statement option (GET, PUT) 










UNALIGNED 


Attribute 


STRINGRANGE 


Condition 


UNAL 




STRG 












UNDEFINEDFILE 


Condition 


STRINGRANGE 


Enabled-condition name 


UNDF 




STRG 












UNDERFLOW 


Condition 


STRINGSIZE 


Condition 


UFL 




STRZ 












UNDERFLOW 


Enabled-condition name 


STRINGSIZE 


Enabled-condition name 


UFL 




SIR/. 












UNSPEC 


Builtin function 


STRUCTURE 


Attribute 










UNSPEC 


Pseudovariable 


SUBSCRIPTRANGE 


Condition 






SUBRG 




UPDATE 


Attribute 


SUBSCRIPTRANGE 
SUBRG 


Enabled-condition name 


UPDATE 


Statement option (OPEN) 


SUBSTR 


Builtin function 


VALID 


Builtin function 


SUBSTR 


Pseudovariable 


VARIABLE 


Attribute 


SUBTRACT 


Builtin function 


VARYING 
VAR 


Attribute 


Sl'V 


Builtin function 










VERIFY 


Builtin function 


SYSTEM 


Statement option (ON) 










WHEN 


Option in GENERIC attribute 


TAB 


1 'or Tint ilcir. 




( I MX LAR R) : r:\£f:!y0:l iv; ■ 


TAB 


Statement option (OPEN) 


WHILE 


Option in do-specification in 
LIST or EDIT option (GET, PI 


TAN 


Builtin function 










WHILE 


Statement option (DO) 


TAND 


Builtin function 










WRITE 


Statement 


TANH 


Builtin function 






THEN 


Statement option (IF) 


X 


Format item 


TIME 


Builtin function 










ZERODWIDE 


Condition 


TITLE 


Statement option (OPEN) 


ZDIV 




TO 


Option in do-specification in 


ZERODIV1DE 


Enabled-condition name 




LIST or EDIT option (GET, PUT) 


ZDIV 
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SYNTAX SUMMARY 



A summary of language syntax appears in this appendix. Detailed information for each syntax is referenced by page number. 
The summary includes entries listed in alphabetic order, where appropriate, in the following major categories: 

Blocks and Do Groups 

Statements 

Prefixes 

Attributes 

References 

Expressions 

Picture Specification 



BLOCKS AND DO GROUPS 



Page 



BEGIN BLOCK 



1-1 



BEGIN-statement 

[ block-unit ] 
END-statement 

where block-unit is 



'procedure-block 
begin-block 
do-group 
ALLOCATE-statement 
assignment-statement 
CALL-statement 
CLOSE -statement 
DECLAR E-statement 
DE LETE-statement 
FORMAT-statement 
FREE-statement 
GET-statement 
GOTO-statement 
IF-statement 
LOCATE-statement 

[ null-statement 
ON-statement 

I OPEN-statement 
PUT-statement 
READ-statement 
RETURN-statement 
REVERT-statement 
REWRITE-statement 
SIGNAL-statement 
STOP-statement 

, WRITE-statement 
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Do Group and Procedure Block 



DO GROUP 

DO-statement 

[ block-unit 1 . 
END-statement 



Page 

1-2 

J 



where block-unit is 

/procedure-block 
begin-block 
do-group 

ALLOCATE-statement 
assignment-statement 
CALL-statement 
CLOSE -statement 
D EC LA R E-statement 

1 DELETE-statement 
ENTRY-statement 
FORMAT-statement 
F REE-statement 
GET-statement 
GOTO-statement 
IF -statement 
LOCATE-statement 

I null-statement 

I ON-statement 

I OPEN -statement 
PUT-statement 
READ-statement 
RETURN-statement 
REVERT-statement 
REWRITE-statement 
SIGNAL statement 
STOP-statement 

^WRITE-statement 



PROCEDURE BLOCK 



1-1 



P ROCE DU R E-statement 

[block-unit] . . . 
END-statement 

where block-unit is 



procedure-block \ 

begin-block 

do-group 

A L LOCATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

DEC LA R E-statement 

DELETE-statement 

ENTRY-statement 

FORMAT-statement 

F REE-statement 

GET-statement 

GOTO-statement 

I F-statement 

LOCATE-statement 

null-statement 

ON-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

REWRITE-statement 

SIGNAL-statement 

STOP-statement 

WRITE-statement 
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[prefix] . . 



( ALLOCATE I 



J ALLOC ( 

!controlled-variable I 

based-variable II III'' 

[|| IN(area) ||J j 



[prefix] . . . assignment-target, , , = expression 



[prefix]... BEGIN ; 



[prefix]... CALL subroutine-reference [([argument, , ,])] ; 



[prefix]. . . CLOSE <FILE(file-reference) 



(environment) 



} ENV ^expression)! j , 



ALLOCATE thru CLOSE Statement 



STATEMENTS 



ALLOCATE STATEMENT 



Page 
12-3 



ASSIGNMENT STATEMENT 



12-5 



BEGIN STATEMENT 



12-S 



CALL STATEMENT 



12-6 



CLOSE STATEMENT 



12-7 



60388100 A 



E-3 



DECLARE thru END Statement 



DECLARE STATEMENT 



r, K-t i (DECLARE) 
[label:] . . . < > declaration, , 

| DCL J 



where declaration is 



., .. { identifier I . ,. 

[level] < . Mdimension-suffix] [attribute] 

{(declaration, , ,)( 



DO STATEMENT 

Noniterative DO 
[prefix]. . . DO ; 

DO WHILE 

[prefix]. . . DO WHILE (expression) ; 

Indexed DO 

[prefix]. . . DO index = do-specification, , , 



where do-specification is 

[WHILE(expression)] 



start-expression 



I TO expression II 
[_| BY expression II 



11 
12-8 



DELETE STATEMENT 12-9 

[prefix]. . . DELETE FILE(file-reference) 
KEY(expression) ; 



12-10 



END STATEMENT 



[label:]... END [closure-name] 



12-13 
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ENTRY thru FREE Statement 



ENTRY STATEMENT 



Page 
12-13 



jentry-name:} . . . ENTRY [(parameter, , ,)] 
[RETURNS {(returns-descriptor)]] ; 



FORMAT STATEMENT 



12-15 



{condition-prefix] . . . {format-name:} . . . 
FORMATIformat-specification, , ,) ; 

where format-specification is 



/{integer . \ (format-specification, , ,) 
((expression)) 



/ A[( 



[integer 1 
(expression )J 



width)] 
B [(width)] 
{COLUMN J i(new . column)) 

E (width.fd [,sd]) 

F (width [,fd [, scale]] ) 

LINE [(new-line)] 

P 'picture-specification' 

PAGE 

R (remote-format) 

SKIP [(line-count)] 

X ((space-count)] 



\ 



FREE STATEMENT 



12-16 



{prefix] . . , FREE 

jcontrolled-variable j 

uiocator-reference->] based-variable [IN(area)] ] 
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GET Statement 



GET STATEMENT 

f Me Positioning 
| [prefix]... GET [cOPY [(file-reference)]] [FILE (file-reference)] SKIP [(line-count)] 

Stream Input 



12-17 



I 



[prefix], . . GET [ COPY [(fite-reference)]J 



[FILEffile-reference)] [SKIP [(line-count)]] 
STR I NG (input-source) 



. LISTflnput-target , , ,) 

: EDIT I (input-target , , ,}(format-specification ,,,)!.. . 
where Input- target is 

( target-variable 
pseudowariabie 
[(input-target , , , embedded-do) J 

where embedded-do is 

DO index - l start-expression I f expressionji h {wHit_E(expression)]! . . . 
r p BY expressionflj J 

where format-specification is 

feSLon)} ^t-specification,.,) 



pnteger 



A (width) 

B (width) 

/COLUMN) ,, . ., 

ICOL I l< r,evv - C0,umn U 

E (width.fd (,sdl) 

F (width [,fd [.scale]] ) 

P 'picture-specification' 

R(remote-format) 

SKIP [(line-count)} 

X ((space-count)] 



E-6 
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GOTO thru Null Statement 



GOTO STATEMENT 



12-20 



[prefix] . 



(goto ) 

{go to} labe| - reference 



IF STATEMENT 

[prefix] ... IF expression 
THEN executable-unit-1 
[ELSE executable-unit-2] 

where each executable-unit is 



begin-block 

do-group 

ALLOCATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

DELETE-statement 

FREE-statement 

GET-statement 

GOTO-statement 

IF -statement 

LOCATE-statement 

null-statement 

ON-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

REWRITE-statement 

SIGNAL-statement 

STOP-statement 

WRITE-statement 



12-21 



LOCATE STATEMENT 

[prefix] . . . LOCATE based-variable 

niSET(pointer) 



12-22 



Fl LE(file-reference) 



jjl KEYF ROM(expression) 



NULL STATEMENT 

[prefix] . . . ; 



12-24 
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ON thru PROCEDURE Statement 



ON STATEMENT 



[prefix]... ON cc ■ .[SNAP] 



where on-unit is 

begin-biock 

ALLOCATE-statement 

assignment-statement 

CALL-statement 

CLOSE-statement 

DELETE-statement 

FREE-statement 

GET-statement 

GOTO-statement 

LOCATE-statement 

null-statement 

OPEN-statement 

PUT-statement 

READ-statement 

RETURN-statement 

REVERT-statement 

R E VV R ITE-statement 

SIGNAL-statement 

STOP-statement 

WR ITE-statement 



Page 

12-24 



j on-unit 
) SYSTEM 



OPEN STATEMENT 



12-24 



[prefix] . . . OPEN 



i Fl LE(file-reference) 



TITLE(expression) 

/ENVIRONMENT) 

(ENV J (expression) 



[STREAM] 



[INPUT [LINES ZE(expressior 
[OUTPUT] 



PRINT 

LINESIZE(expression) 

PAGESIZE(expression) 



I INPUT 1 

[record] output 
1 updateJ 



DIRECT 

SEQUENTIAL 

SEQL 



[KEYED] 



PROCEDURE STATEMENT 



12-26 



[condition-prefix]. . . jentry-name:| . . . 



(procedure) 

(PROC ) 



[(parameter, , ,)] 
OPTIONS(MAIN) [RECURSIVE] 



RETURNS [(returns-descriptor)] 
RECURSIVE 
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PUT STATEMENT 

File Positioning 

!SKIP [(line-count)] 
LINE [(new-line)] 
PAGE [l Nh ; ( nfiwv-iir.fi; J J 



PUT Statement 

jPjge 

12-29 



Stream Output 



[prefix] . 



PUT 



rci. cm * II r SK,P H«ne-count»] 1 

FILE fjle-reference ,„«_,., r.,., r ,, .. ., i 
JJPAGE] [LINE l{iifw-i.m-;3 J J 



.STRING(output-target) 

!LIST(output-source , , ,) 
ED IT {(output-source , , ,) (format-specification , ,,) > - . 

where output-source is 

expression I 

(output-source , , , embedded -do) 1 



where embedded-do is 



TO expression , . 
DO index = { start-expression I [WHILE(expression)] 

BY expression 



CI TO expression if] 
I BY expression II I 



where format-specification is 



((integer \ (format-specificati< 
((expression)) 



[integer j 
(expression)J 



(A [(width)] 
B [(width)] 
(COLUMN | [(new-column) j 

F (wdi h,f .1 1 ,al 1 1 - 
F (width [,fd [.scale]] ) 
LINE [(new-line)] 
P 'picture-specification' 
PAGE 

R(remote-format) 
SKIP [(line-count)] 
X [(space-count)] 
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READ thru WRITE Statement 



READ STATEMENT 



Page 

12-32 



[prefix]. . . READ FILE(file-reference) 

(iNTO(read-target) J [KEYIexpression) 

\ SET(pomter) / 

( IGNORE(expression)) |_KEYTO( key-target) _ 



RETURN STATEMENT 12-33 

[prefix]... RETURN [(return-value)] ; 

REVERT STATEMENT 12-34 

[prefix]... REVERT condition ; 

REWRITE STATEMENT 12-35 

[prefix]... REWRITE FILE(file-reference) 
[FROM(source) [KEY(expression)]] ; 

SIGNAL STATEMENT 12-35 

[prefix] . . . SIGNAL condition ; 

STOP STATEMENT 12 - 36 

[prefix] . . . STOP ; 

WRITE STATEMENT 1 2 . 36 

[prefix]. . . WRITE FILE(file-reference) 

FROM(source) [KEY FROM (expression)] ; 

E " 10 60388100 A 



entry-name : 



Condition thru Label Prefix 
ALIGNED thru AUTOMATIC Attribute 



PREFIXES 



Page 



CONDITION PREFIX 



( enabled-condition-name \ . 

' \ disabled-condition-name J ' ' ' 



12-2 



ENTRY PREFIX 



12-2 



FORMAT PREFIX 

format-name : 



12-2 



LABEL PREFIX 



label [( subscript , , , )] 



ATTRIBUTES 



12-2 



ALIGNED ATTRIBUTE 

ALIGNED 



4-6 



AREA ATTRIBUTE 

AREA [(size)] 



4-7 



AUTOMATIC ATTRIBUTE 

| automaticI 
(auto j 



4-7 
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BASED thru DECIMAL Attribute 

Page 
BASED ATTRIBUTE 4-8 

BASED [(locator-reference)] 



BINARY ATTRIBUTE 4-8 



(binary) 

1BIN I 



BIT ATTRIBUTE 4-8 

BIT [(length)] 

BUILTIN ATTRIBUTE 4-g 

BUILTIN 

CHARACTER ATTRIBUTE 4-9 

(character) r„ _. n 
JCHAR J [WengthO 

CONTROLLED ATTRIBUTE 4-10 

(controlled) 

( CTL ) 

DECIMAL ATTRIBUTE 4-10 

(decimal) 

( DEC ] 

E-12 60388100 A 



DEFINED ATTRIBUTE 



DEFINED thru EXTERNAL Attribute 

Page 
4-11 



(DEFINEDl t host-reference » H POSITION i [(start . pos) ]] 

IDEF ' I (host-reference)) UPOS J V J 



DIMENSION ATTRIBUTE 



4-12 



(array-bounds , , , ) 

where array-bounds is 

( upper-bound I 

ylower-bound:upper-bound / 



DIRECT ATTRIBUTE 



4-12.1/4-12.2 | 



DIRECT 



ENTRY ATTRIBUTE 



4-13 



(tNTRY 

< ENTRY ( ) 

' ENTRY (parameter-descriptor 



..,} 



ENVIRONMENT ATTRIBUTE 



4-14 



>ENVJRONMENT( 



IENV 



(options) 



EXTERNAL ATTRIBUTE 



4-14 



{external) 
Jext } 
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FILE thru INPUT Attribute 



FILE ATTRIBUTE 

FILE 



Page 
4-15 



FIXED ATTRIBUTE 



4-15 



FIXED 



FLOAT ATTRIBUTE 

FLOAT 



4-15 



INITIAL ATTRIBUTE 



4-16 



For initialization of scalars 



[+] arithmetic-constant 
simple-character-constant 
iiMiTiAii 1 replicated-character-constant 

{ nt I ( \ sim P |e - bit - constant \ ) 

' replicated-bit-constant 
reference 
(expression) 



For initialization of arrays 

(INITIAL* .. ... , , . , 

UNIT I (initial-element , , , ) 

where initial-element is 

([+] arithmetic-constant ] 

replicated-character-constant j 
I (iteration-factor) J \ replicated-bit-constant / 

J reference i | 



/simple-character-constant 
simple-bit-constant 
(expression) 

. M+Oi-ist Jr»n — f ar>tArl /ir-ii + ipl_olbrrirtr% 

mmuiuuu.i 'uviuif \riiiLiCii t-iCitiviil 



INPUT ATTRIBUTE 



4-17 



INPUT 



E-14 



60388100 A 



INTERNAL ATTRIBUTE 



(INTERNAL* 
tINT S 



KEYED ATTRIBUTE 



KEYED 



INTERNAL thru OUTPUT Attribute 

Page 
4-17 



4-18 



LABEL ATTRIBUTE 

LABEL 



4-18 



LIKE ATTRIBUTE 

See Structure 



4-24 



MEMBER ATTRIBUTE 



See Structure 



OFFSET ATTRIBUTE 



OFFSET [(area-reference)] 



OUTPUT ATTRIBUTE 



OUTPUT 



4-23 



4-18 



4-19 
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PICTURE thru RETURNS Attribute 

Page 
PICTURE ATTRIBUTE 4-20 

/PICTURE) , . ... . , 

\ > picture-specification 

where picture-specification is 

j 'pictu red-character' 

\ 'pictured-numeric-f ixed' 

( 'pictu red-numeric-float' 



POINTER ATTRIBUTE 4-20 

(POINTER) 
<PTR / 



POSITION ATTRIBUTE 4-11 

See DEFINED 

PRECISION ATTRIBUTE 4-20 



{«P.q)l 



PRINT ATTRIBUTE 4-21 

PRINT 

REAL ATTRIBUTE 4-21 

REAL 

RECORD ATTRIBUTE 4-21 

RECORD 

RETURNS ATTRIBUTE 4-22 



^RETURNS 

IRETURNS (returns-descriptor) j 



riptor) j 
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SEQUENTIAL thru VARYING Attribute 

Page 
SEQUENTIAL ATTRIBUTE 4-22 

JsEQUENTIAU 
JSEQL j 



STATIC ATTRIBUTE 4-23 

STATIC 

STREAM ATTRIBUTE 4-23 

STREAM 



STRUCTURE ATTRIBUTE 4-23 



For variables 

1 structure-name { . (level member-name [attribute] . . . 

I [attribute] ... , <, 
< Ueve 

' LIKE structure-reference 



( level member-name [attribute] ... \ ) 

(level member-name LIKE structure-reference [attribute] ...)''/ 



For parameter descriptors 

1 [attribute] ... , •! level [attribute] . . . j , , , 

UNALIGNED ATTRIBUTE 4-6 

^unaligned) 

{UNAL j 

UPDATE ATTRIBUTE 4-25 

UPDATE 

VARYING ATTRIBUTE 4-25 

VARYING 

60388100 A E-17 



References and Expressions 

REFERENCES 

Page 
BUILTIN FUNCTION AND PSEU DO VARIABLE REFERENCE 6-13 | 

simple-reference [([argument ,,,] J] 



FUNCTION REFERENCE 

simple-reference ( [argument , , , ] ) 

LOCATOR-QUALIFIED REFERENCE 

locator-reference -> based-reference 

SIMPLE REFERENCE 

identifier 



SUBSCRIPTED REFERENCE 

identifier(subscript , , , ) 

EXPRESSIONS 



reference 

literal-constant 

iSUB 

^expression 



/ 



expression \ ^ } expression 

— 1 = 

< 
<= 

> 
>= 

(expression) 



6-4 



6-3 



6-2 



STRUCTURE-QUALIFIED REFERENCE 6 _ 3 

{structure-qualifier.}... member-reference 



6-2 



7-1 
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Picture Specification 
Page 

PICTURE SPECIFICATION 7-13 

{pictured-character j 
pictured-numeric-fixed > 
pictured-numeric-float ) 

where pictured-character must include at least one A or X code and is 



61 



where pictured-numeric-fixed must include at least one of the codes 9 Z * Y T I or R, must include no more than one sign code 
S + - T I RCRor DB, can include insertion codes / , . or B at any position, and is 



(SSI [ F <H in H 

where nondrifting-field is 

| [$]•!+ • digits 

[[$]• digits {g«}J 
where digits is 

I L* . . .J [ d >git-pos] • • • [ v J [digit-pos ] . . . 



where digit-pos is 



where drifting-field is 

[$ ] • drifting-sign 



f"s"| ($$... [digit-pos] . . . [V ] [digit-pos] . . . ) 
[+J # j$[$...]V$... | 

{--[•J-fi [•»]-! |„! 



[$[$.. .]v$. 

where drifting-sign is 



DB 



t 



|":::|ra- : M [J]... 



where pictured-numeric-float is 
mantissa / JH exponent 

where mantissa must include at least one of the codes 9 Z " Y T I or R, must include no more than one sign code S + - T I or 
R, can include insertion codes / , . or B at any position, and is 



) + digits ( 
( drifting-sign I 



and where exponent must include at least one of the codes 9 Z * Y T I or R, must include no more than one sign code S + 
T I or R, can include insertion codes / , . or B at any position, and is 



[*] 



digit-pos ... ) 

I * '.'.'. } [digit-pos]. . . J 
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ANSI PL/I 



This appendix summarizes the relationship between this 
implementation of PL/I and the language described in 
American National Standard Programming Language PL/I, 
ANSI X3.53-1976. 

In this appendix, each special notation within parentheses 
indicates the relevant section or line in the ANSI standard. 
The special notations take the following form: 

(Sn.n. . .) indicates a section number in the ANSI 
standard. 

CHn is used with the section number to indi- 

cate a specific line in the high-level 
concrete syntax. 

CMn is used with the section number to indi- 

cate a specific line in the middle-level 
concrete syntax. 

CLn is used with the section number to indi- 

cate a specific line in the low-level 
concrete syntax. 

The relationship is described with respect to extensions, 
differences, and deviations. Information about 

implementation-defined values is also provided. 



EXTENSIONS 

An extension exists if program behavior or syntax is not 
standard but the behavior or syntax represents an additional 
feature. The following are extensions to the ANSI standard: 

• Additional alphabetic characters in identifiers - The 
characters #, @ , and $ are allowed as alphabetic 
characters in identifiers (S2.5.3). 

• INRULE control statement option - The I through N 
rule is allowed as a control statement option to 
facilitate the conversion of existing programs. If the 
INRULE option is selected, default arithmetic attri- 
butes are added by taking the following rules in order: 

If the identifier begins with the letter I through N 
and if the base, scale, and mode are all absent, 
then FIXED and BINARY are added. 



If a precision of the form (p,q) is present, FIXED is 
added. 



• Dependent declarations - The declaration of an 
AUTOMATIC or DEFINED variable can reference 
another AUTOMATIC or DEFINED variable declared in 
the same block. 

• Precision greater than maximum - If a precision 
greater than the implementation-defined maximum, N, 
is specified, one of the following actions is taken: 

FKED variable with p>N, q>=0, and q<=N: p is 
reduced to N, q is unchanged, and a warning 
diagnostic is produced. 



FIXED variable with p>N and q<0 or q>N: 
diagnostic is produced. 



a fatal 



FIXED constant with p>N and p-q<=N: the 
constant is truncated on the right, p is reduced to 
N, q is reduced so that p-q is unchanged, and a 
warning diagnostic is produced. 



FDCED constant with p>N and p-q>N: 
diagnostic is produced. 



a fatal 



FLOAT variable with p>N: p is reduced to N and a 
trivial diagnostic is produced. 

FLOAT constant with p>N: the mantissa is 
truncated on the right, p is reduced to N, and a 
trivial diagnostic is produced. 

• LINESIZE for input files - LINESIZE is permitted for 
input files, and the default value is LINESIZE(80). 



DIFFERENCES 

A difference exists if the feature is supported but program 
behavior or syntax is different. The following are differ- 
ences from the ANSI standard: 

• Label constant arrays - A label constant array must be 
declared in a DECLARE statement. The standard 
prohibits such a declaration (S4.3.2.3). 

• External names - External names and file titles that 
are longer than 7 characters are truncated to 7 
characters. The first 4 and last 3 characters are used. 
A warning error message will be issued for external 
names that contain a special character in order to 
minimize the chance of conflict with system external 
names. 



If no base is present, DECIMAL is added. 
If no scale is present, FLOAT is added. 

If no mode is present, REAL is added. 

LINE option in PUT statement (S2.4.12.3-CM117) and 
COLUMN, LINE, and X format items (S2.4.12.3.3- 
CM151, CM148, CM149) - The syntax has been 
extended to allow omission of the parenthesized expres- 
sion following the keyword. In each case, the default 
value of the expression is 1. 



• ONCHAR and ONSOURCE pseudovariables - These 
pseudovariables modify the original string being con- 
verted rather than a copy of the string. 

• Restrictions on CONVERSION on-unit - Repeated 
raising of CONVERSION without modifying the string is 
not allowed. Standard behavior would permit programs 
to loop on this condition. 

• SYSPRINT - SYSPINT is an external name with the 
attributes EXTERNAL FILE STREAM PRINT OUTPUT. 
SYSPRINT and any other external name that maps to 
SYSPINT must have the same attributes. 
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DEVIATIONS 

A deviation exists if the feature is not supported. The 
following are deviations from the ANSI standard: 

• Context-only attributes - Certain attributes are sup- 
ported by context, but the keywords are not supported 
(S2.4.4.2) (S2.4.4.3). The CONDITION keyword is 
supported in the ON, REVERT, and SIGNAL statements 
but not the DECLARE statement (S2.4.10.4-CM80). 
The FORMAT keyword is supported in the FORMAT 
statement only (S2.4.12.3.3-CM153). The following 
attribute keywords are not supported: 

CONSTANT 

DIMENSION 

MEMBER 

NONVARYING 

PARAMETER 

PRECISION 

STRUCTURE 

VARIABLE 



• Unsupported attributes - The following attributes are 
not supported: 

GENERIC (S2.4.4.5) 
COMPLEX (S2.4.4.3-CM24) 
LOCAL (S2.4.4.2) 

• Data types (S2.4.4.3-CM24) - The following data types 
are supported only for named constants that are scalars: 

ENTRY 

FILE 

FORMAT 

The following data types are supported only for vari- 
ables that are parameters: 

ENTRY 
FILE 

The data type FORMAT is not supported for variables. 

• INITIAL attribute - STATIC EXTERNAL variables can 
be initialized only in the outermost block of the main 
external procedure. 

• Conditions and condition prefixes - The following con- 
ditions and prefixes are not supported: 

NAME condition (S2.4.10.4-CM79) 
STRINGSIZE prefix (S2.4.3.1-CM10) 
NOSTRINGSIZE prefix (S2.4.3.1-CM10) 
STRINGSIZE condition (S2.4.3.1-CM9) 



Builtin functions 
not supported: 



The following builtin functions are 



COMPLEX (S9.4.4.18) 
CONJG (S9.4.4.19) 
DOT (S9.4.4.29) 
EVERY (S9.4.4.33) 
IMAG (S9.4.4.40) 
ONFIELD (S9.4.4.57) 
PROD (S9.4.4.65) 
REAL (S9.4.4.66) 
SOME (S9.4.4.73) 
STRING (S9.4.4.75) 
SUM (S9.4.4.78) 



Pseudovariables - The following pseudovariables are 
not supported: 

IMAG (S7.5.4.1) 
REAL (S7.5.4.5) 
STRING (S7.5.4.6) 

Constant specification - The following constant speci- 
fications are not supported: 

Bl, B2, B3, and B4 radix factor (S2.5.5-CL23) 

F scale factor (S2.5.4-CL16) 

I imaginary constant indication (S2.5.4-CL21) 

P explicit precision indication (S2.5.4-CL13, CL18) 

Extents - Extents for STATIC and parameter vari- 
ables, and in parameter and returns descriptors, are 
supported only as optionally signed decimal integers 
(S4.5.9). 

Aggregate operations (S9.1.1.6) - Aggregate opera- 
tions are not supported. The following ramifications 
exist: 

Expressions that produce aggregate results are not 
supported. 

Promotion of operands is not supported. 

Aggregate assignment is not supported. 

Aggregate arguments which require the creation of 
aggregate dummy arguments are not supported. 



BY NAME assignment 
(S2.4.11-CM82). 



is not supported 



Functions with aggregate return values are not 
supported. 

Initialization of a member of an array of structures 
(unconnected storage) is not supported. 

Stream I/O of aggregates is not supported. 

AREA(*), BIT(*), and CHARACTERS) are not 
permitted as return values. 

• Data-directed I/O (S8.7.1.5) (S8.7.2.5) - Data-directed 
I/O operations are not supported, and the following 
features are not supported: 

DATA option on GET and PUT statements 
(S2.4.12.3.1-CM120) 

NAME condition (S2.4.10.4-CM79) 

ONFIELD builtin function (S9.4.4.57) 

• DEFAULT statement - The DEFAULT statement is 
not supported (S2.4.4.7). 

• DO statement and embedded-do in GET and PUT 
statements - The REPEAT option is not supported 
(S2.4.8-CM69). 

• Formats - The following restrictions apply to formats: 

Nonlocal references to FORMAT statements are 
not supported. 
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Recursive remote references to a FORMAT state- 
ment are not supported. 

Format variables are not supported. 

C format item is not supported 

(S2.4.12.3.3-CM141). 

E format item requires the d specification 
(S2.4.12.3.3-CM140). 

TAB format item is not supported 
(S2.4.12.3.3-CM147). 

• ON and REVERT statements - The condition- 
commalist is limited to a single condition 

| (S2.3.3-CH8) (S2.4.10.4-CM75). 

• OPEN statement - The TAB option is not supported 
(S2.4.12.1-CM92). 

• LABEL values — . Label comparison is not supported 
(S9.3.2.5.1). Functions that return a label value are not 
supported. (S2.4.4.7-CM59). 

• 96INCLUDE statement - The 96INCLUDE statement is 
not supported (S2.5.7). 

• Record I/O - The FROM and INTO options cannot 
contain subscripted references and cannot contain 
references to variables with the member, parameter, or 
DEFINED attributes. 

• KEY option - The KEY option must be supplied for 
REWRITE and DELETE statements using KEYED 
SEQUENTIAL or KEYED DIRECT files. 

• Duplicate keywords - Duplication of attribute key- 
words in a DECLARE statement is not supported. 



IMPLEMENTATION-DEFINED VALUES 

The ANSI standard describes a number of values that are to 
be defined by the implementation (S1.2). The 

implementation-defined values include: 

• The ENVIRONMENT specification syntax (S2.4.4.4) cor- 
responds in general to the parameter syntax on the FILE 
control statement. 

• MAIN is the only supported option (S2. 4.4.4) in the 
OPTIONS option of the PROCEDURE statement. 

• Extralingual characters are ?, [, ], ", \ , and % (S2.5.5). 

• The character sets supported (S2.6) are the CDC 63 and 
64 character set and the ASCII 63 and 64 character set. 
A collating sequence (S9.4.4.17) is supported for each 
character set. The character set in use is selected by 
the installation. 

• The default precisions for arithmetic data (S4.3.6.3) 
are the following: 

FIXED DECIMAL: (5,0) 
FIXED BINARY: (15,0) 
FLOAT DECIMAL: (14) 
FLOAT BINARY: (48) 



Expressions that are evaluated to integer are evaluated 
to FIXED BINARY (17,0) (S9.1.2). 



• The maximum possible precision, N, for arithmetic data 
is 48 for BINARY and 14 for DECIMAL. 

• The default AREA size is 150 words (S4.3.6.3). AREA 
size is expressed in 60-bit words. 

• The SNAP option in the ON statement prints the 
appropriate values of ONCODE, ONCHAR, 
ONSOURCE, ONFILE, and ONLOC, as well as the 
statement number where the interrupt occurred, the 
names of the active procedures, and an informative 
message (S6.4.3). 

• The standard system action for STORAGE condition is 
to raise the ERROR condition (S6.4.4). 

• The standard system action for the ERROR condition is 
to produce a SNAP and to abort program execution 
(S6.4.4). 

• The STORAGE condition is raised when the program 
attempts to exceed the maximum specified field length 
(S7.2.5). 

• Concrete representation of a dataset is a CRM local 
file (S8.1). 

• The default LINESIZE for a STREAM OUTPUT file is 80 
characters and for a STREAM OUTPUT PRINT file is 
136 characters (S8.5.1.3). 

• The default PAGESIZE for a PRINT file is 60 lines 
(S8.5.1.3). 

• The TIME builtin function returns six characters indi- 
cating hhmmss (S9.4.4.82). 

• The results of floating point operations and numeric 
conversions are the hardware and software approxi- 
mations to the actual values (S9.1.4) (S9.5.1.2). 

• The currency symbol is $ (S9.5.2.2). 

• The maximum length of an identifier is 40 characters. 

• The result has a 3-digit exponent when a floating point 
value is converted to a character string (S9.5.1.5). 

• The result of the ROUND builtin function with a 
floating point argument is not rounded (S9.4.4.68). 

• Static nesting level for blocks cannot exceed 50. 

• Evaluated extents have the following possible values: 

Area variable: 0<=size and size<=131071, but 
hardware always imposes a smaller maximum 

Bit variable: 0<=length and length<=131071 

Character variable: 0<=length and length<=131071 

Array bounds for an array: -131071<=(lower- 
bound) and (lower-bound>< (upper-bound) and (upper- 
bound)<=131071 

• Character constant length is 0<=length and 
length<=16383. 

• Bit constant length is 0<=length and lengtlK=16383. 

• Number of dimensions for an array cannot exceed 32. 
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• Length of the character value of a pictured item is • Number of arguments in an argument list and number of 
0<=length and length<=1000. parameters in a parameter list cannot exceed 64. 

• Number of unique external names in a program cannot 

• Number of characters in the exponent of a pictured exceed approximately 500, because of restrictions 
numeric floating point item cannot exceed 510. imposed by the loader. 

„ . „ , , . ■-. , . ■ t * Precision q for a FIXED arithmetic variable is -255<=q 

• Number of blocks in an external procedure cannot ..j ^..«c 
exceed 255. and q<-255. 

I ' • Precision q for a FIXED BINARY arithmetic constant is 

• Number of levels in a structure cannot exceed 16383, 0<=q and q<=48. Precision q for a FIXED DECIMAL 
and no specified level number can exceed 16383. arithmetic constant is 0<=q and q<=14. 
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A character code 7-13 
A format item 8-7 
Abnormal termination 
Block 2-5 
On-unit 2-7, 10-4 
Abort 2-9 

ABS builtin function 11-5 
ACOS builtin function 11-5 
Activation 

Begin block 1-2, 2-2 
Current block 2-2 
Environment 2-2 

Main procedure 2-2, 12-28 

Procedure block 1-2, 2-2 

Recursive 2-2 
Active block 2-2 
ADD buatin function 11-6 
Addition 7-4 

ADDR builtin function 11-6 
AFTER builtin function 11-6 
Aggregate type attributes 4-1, 4-3 
Aggregates 

Arrays 3-13 

Definition 3-12 

Structures 3-13 
ALIGNED attribute 4-6 
Alignment type attributes 4-1 
ALLOCATE statement 12-3 
Allocated buffer 3-12, 12-23 
ALLOCATION builtin function 11-7 
Allocation unit 3-10, 8-14 
ANSI PL/I F-l 
Apostrophe character 1-6 
Area 

Assignment 7-8 

Variable 3-7 
AREA attribute 4-7 
AREA condition 10-6 
Argument 

Compatibility with parameter 6-5 

Conversion 6-5 

Definition 6-5 

Dummy 6-5 
| Lists 6-7 

Passing 6-5, 12-14, 12-28 
Arithmetic 

Buatin functions 11-1 

Constant 1-5, 3-1 

Data type attributes 4-3 
Arithmetic operations 

Infix 7-4 

Operand conversion 7-4 

Prefix 7-4 
Arithmetic to arithmetic conversion 7-9 
Arithmetic to bit conversion 7-12 
Arithmetic to character conversion 7-11 
Arithmetic variable 

Base 3-5 

Definition 3-5 

Maximum value 3-6 

Minimum value 3-6 

Precision 3-6 

Scale 3-5 



Array 

Bounds 4-12 

Cross section 6-2 

Defining with iSUB 4-12 

Definition 3-13 

Manipulation builtin functions 11-1 

Organization 3-13 
ASM builtin function 11-7 
Assignment 

Area 7-8 

Computational 7-7 

Label 7-7 

Locator 7-7 
Assignment statement 12-5 
Asterisk 

Extents 4-26 

Subscript 6-2 
ATAN builtin function 11-7 
ATAND builtin function 11-7 
ATANH builtin function 11-8 
Automatic storage 3-10 
Attribute 

Aggregate type 4-1, 4-3 
ALIGNED 4-6 
Alignment type 4-1 
AREA 4-7 
AUTOMATIC 4-7 
BASED 4-8 
BINARY 4-8 
BIT 4-8 
BUILTIN 4-9 
CHARACTER 4-9 
Condition 4-9 
Constant 4-10 
CONTROLLED 4-10 
Data type 4-2 
DECIMAL 4-10 
Default 5-3 
Definition 4-1 
DEFINED 4-11 
Dimension 4-12 
DIRECT 4-12.1/4-12.2 
ENTRY 4-13 
ENVIRONMENT 4-14 
EXTERNAL 4-14,5-1 
Factored 12-8 
FILE 4-15 

File description 4-4, 8-1 
FIXED 4-15 
FLOAT 4-15 
Format 4-16 
INITIAL 4-16 
INPUT 4-17 
INTERNAL 4-17,5-1 
KEYED 4-18 
LABEL 4-18 
LIKE 4-24 
List 13-4 
Member 4-23 
Nonvarying 4-25 
OFFSET 4-1* 
OUTPUT 4-19 
Parameter 4-19 
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PICTURE 4-20 
POINTER 4-20 
POSITION 4-11 
Precision 4-20 
PRINT 4-21 
REAL 4-21 
RECORD 4-21 
RETURNS 4-22 
Scope type 4-1, 4-3 
SEQUENTIAL 4-22 
STATIC 4-23 
Storage type 4-1 
STREAM 4-23 
Structure 4-23 
Summary 4-26 
UNALIGNED 4-6 
UPDATE 4-25 
Variable 4-25 
VARYDJG 4-25 
AUTOMATIC attribute 4-7 



B format item 8-7 
B insertion code 7-17 
Base 3-5 

BASED attribute 4-8 
Based generation 

Access 3-12 

Allocation 3^-11 

As input buffer 3-12 

As output buffer 3-12 

List processing 3-12 
Based variable 

Allocation 3-11, 12-4 

Freeing 3-11, 12-16 

Storage 3-11 
BEFORE builtin function 11-8 
Begin block 

Activation 1-2, 2-2 

Closure 1-4 

Structure 1-1 

Syntax 12-6 
BEGIN statement 12-6 
BINARY attribute 4-8 
BINARY builtin function 11-9 
BIT attribute 4-8 
BIT builtin function 11-9 
Bit string constant 3-3 
Bit to arithmetic conversion 7-10 
Bit to bit conversion 7-12 
Bit to character conversion 7-11 
Blank character 1-6 
Block 

Abnormal termination 2-5 

Activation 1-2, 2-2 

Activation environment 2-2 

Active 2-2 

Effect on program 1-1 

Begin 1-2, 12-6 

Closure 1-4 

Containment 1-2 

Current activation 2-2 

Definition 1-1 

Nesting 1-2 

Normal termination 2-4 

Procedure 1-2, 2-2 

Recursive activation 2-2 

Termination 2-4 
Block type 9-1 
BOOL builtin function 11-9 
Bounds, array (see Array) 
BT option 9-1 
Buffer allocation 3-12, 12-23 



BUnVTIN attribute 

Contextual declaration 11-1 

Description 4-9 

Explicit declaration 11-1 
Builtin function 

ABS 11-5 

ACQS 11-5 

ADD 11-6 

ADDR 11-6 

AFTER 11-6 

ALLOCATION 11-7 

Argument specification il-1 

Arithmetic 11-1 

Array manipulation 11-1 

Asm ii-7 

ATAN 11-7 
ATAND 11-7 
ATANH 11-8 
Attributes 4-5 
BEFORE 11-8 
BINARY 11-9 
BIT 11-9 
BOOL 11-9 
CEIL 11-10 
CHARACTER 11-10 
COLLATE 11-10 
Condition 11-1 
COPY 11-11 
COS 11-11 
COSD 11-11 
COSH 11-11 
DATE 11-12 
Date and time 11-1 
DECAT 11-12 
DECIMAL 11-12 
Definition 11-1 
DIMENSION 11-13 
DIVIDE 11-13 
EMPTY 11-13 
ERF 11-14 
ERFC 11-14 
EXP 11-14 
FIXED 11-14 
FLOAT 11-15 
FLOOR 11-15 
HBOUND 11-15 
HIGH 11-16 
INDEX 11-16 
LBOUND 11-16 
LENGTH 11-16 
LINENO 11-17 
LOG 11-17 
LOG10 11-17 
LOG2 11-17 
LOW 11-18 
Mathematical 11-1 
MAX 11-18 
MIN 11-18 
MOD 11-19 
MULTIPLY 11-19 
Names D-l 
NULL 11-19 
OFFSET 11-19 
ONCHAR 10-5, 11-20 
ONCODE 10-5, 11-20 
ONFILE 10-5, H-20 
ONKEY 10-5, 11-20 
ONLOC 10-5, 11-20 
ONSOURCE 10-5, 11-20 
PAGENO 11-21 
Picture handling 11-1 
POINTER 11-21 
PRECISION 11-21 
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REVERSE 11-22 
ROUND 11-22 
SIGN 11-22 
SIN 11-23 
SIND 11-23 
SINH 11-23 
SQRT 11-23 
Storage control 11-1 
Stream I/O 11-1 
String handling 11-5 
SUBSTR 11-24 
SUBTRACT 11-24 
TAN 11-24 
TAND 11-25 
TANH 11-25 
TIME 11-25 
TRANSLATE 11-26 
TRUNC 11-26 
UNSPEC 11-26 
VALID 11-27 
VERIFY 11-27 
| Builtin function reference 6-13 



CALL statement 12-6 
CEIL builtin function 11-10 
CHARACTER attribute 4-9 
CHARACTER builtin function 11-10 
Character 

Codes 7-13 

Set 1-7, A-l 

String constant 3-2 
Character to arithmetic conversion 7-10 
Character to bit conversion 7-12 
Character to character conversion 7-11 
CLOSE statement 12-7 
Closure 

Block 1-4 

Do group 1-4 

Multiple 1-4, 2-5, 12-13 

Name 1-4 
Coding 1-7 

COLLATE builtin function 11-10 
COLUMN format item 8-8 
Comment 1-6 
Common storage area 6-7 
Comparison operations 

Infix 7-7 

Operand conversion 7-6 

Pointer values 7-7 
COMPASS interface 6-7 
Compatibility 

Argument and parameter 6-5 

File and CRM file 9-2 

Operands 7-2 

Source and target 7-7 
Compilation 1-1, 5-1, 13-1 
Compile-time diagnostic messages B-l 
Compound statements 1-3 
Computational 

Assignment 7^7 

Data type attributes 4-3 
Computational variable 

Arithmetic 3-5 

Pictured 3-6 

String 3-6 
Concatenate operation 7-6 
Condition 

AREA 10-6 

Attributes 4-4 

CONDITION 10-6 

CONVERSION 10-6 



Definition 10-1 

Disabled 10-1, 10-4 

Enabled 10-1, 10-4 

ENDFILE 10-7 

ENDPAGE 10-7 

ERROR 10-7 

FINISH 10-8, 12-36 

FIXEDOVERFLOW 10-8 

I/O 10-4 

KEY 10-8 

Names 10-1, 12-3 

OVERFLOW 10-8 

Prefix 1-4, 10-1, 12-2 

Programmer-named 10-1 

Raising 10-4, 12-3 

RECORD 10-9 

Simulation 10-1 

SIZE 10-9 

STORAGE 10-10 

STRINGRANGE 10-10 

SUBSCRIPTRANGE 10-10 

TRANSMIT 10-10 

UNDEFINEDFILE 10-11 

UNDERFLOW 10-11 

ZERODIVIDE 10-11 
Condition attribute 4-9 
Condition builtin functions 

Assignment for SIGNAL 12-36 

Definition 11-1 

ONCHAR 10-5, 11-20 

ONCODE 10-5, 11-20 

ONFILE 10-5, 11-20 

ONKEY 10-5, 11-20 

ONLOC 10-5, 11-20 

ONSOURCE 10-5, 11-20 
CONDITION condition 10-6 
Constant 

Arithmetic 1-5, 3-1 

Attributes 4-6 

Bit string 3-3 

Character string 3-2 

Entry 3-3 

File 3-3, 8-1 

Fixed binary 3-2 

Fixed decimal 3-1 

Float binary 3-2 

Float decimal 3-1 

Format 3-4 

Label 3-4 

Literal 1-5, 3-1 

Named 3-3, 4-3 

Replicated bit 3-3 

Replicated character 3-2 

Simple bit string 1-5 

Simple character string 1-6 
Constant attribute 4-10 
Containment 

Block 1-2 

Definition 1-1 

Exceptions 1-2 
Contextual declaration 5-3 
Control flow (see Flow of control) 
Control statement 

Diagnostics B-l 

FILE 9-2 

PLI 13-1 
CONTROLLED attribute 4-10 
Controlled storage 3-11 
Controlled variable 

Allocation 3-11, 12-4 

Definition 3-11 

Freeing 3-11, 12-16 
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Conversion 

Arguments 6-5 
Arithmetic operands 7-4 
Arithmetic to arithmetic 7-9 
Arithmetic to bit 7-12 
Arithmetic to character 7-11 
Bit to arithmetic 7-10 
Bit to bit 7-12 
Bit to character 7-11 
Character to arithmetic 7-10 
Character to bit 7-12 
Character to character 7-11 
Definition 7-8 
Offset to pointer 7-12 
Picture-controlled 7-13 
Pointer to offset 7-12 
| CONVERSION condition 10-6 
COPY builtin function 11-11 
COPY option 8-4, 12-19 
COS builtin function 11-11 
COSD builtin function 11-11 
COSH builtin function 11-11 
CR sign suffix code 7-17 
CRM and PL/I files 9-1 
CRM file 

Compatibility with PL/I file 9-2 
Definition 9-1 

ENVIRONMENT option 12-25 
TITLE option 12-25 
CRM options 9-1 
| Cross section 6-2 
Currency code 7-17 
Current block activation 2-2 
Current established on-unit 10-3 
CYBER Record Manager 9-1 

Data description 3-9, 4-8 
Data reference 6-2 
Data type attributes 

Computational 4-2 
Arithmetic 4-3 
Pictured 4-3 
String 4-3 

Definition 4-2 

Noncomputational 4-2 
DATE builtin function 11-12 
Dayfile messages B-l 
DB sign suffix code 7-17 
DECAT builtin function 11-12 
DECIMAL attribute 4-10 
DECIMAL builtin function 11-12 
Decimal point code 7-15 
Declarations 

Contextual 5-3 

Explicit 5-2 

Factored 12-8 

Identifiers 5-2 

Implicit 5-3 

Multiple explicit 5-2 

Parameters 5-2 

Processing order 5-1 

Scope 5-1, 6-1 
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DECLARE statement 5-2, 12-8 
Default 

Attributes 5-3 

Binary output file 1-1 

Input file 1-1, 1-5 

INRULE arithmetic 5-3 

Output file 1-1, 1-5 

Precision 4-21 

Standard arithmetic 4-8 



DEFINED attribute 4-11 
Defined storage 4-11 
Defining 

Array with iSUB 4-12 

Simple 4-11 

Overlay 4-11 
DELETE statement 8-12, 12-9 
Delimiters 1-6 
Descriptor 

Attributes 4-5 

Parameter 4-1, 4-13, 6-5 

Returns 4-1, 12-14, 12-28 
Deviations from ANSI PL/I F-2 
Diagnostics 

Compile-time B-l 

Control statement B-l 

Dayfile messages B-l 

Run-time B-3 
Differences from ANSI PL/I F-l 
Digit codes 7-15 
Dimension attribute 4-12 
DIMENSION builtin function 11-13 
Dimensioned identifier 5-3 
DIRECT attribute 4-12.1/4-12.2 
Disabled 

Condition 10-1 

Condition name 10-1, 12-3 
Diverted flow of control 2-1 
DIVIDE builtin function 11-13 
Division 7-5 
Do group 

Closure 1-4 

Definition 1-2 

Iterative 1-3, 12-11 

Noniterative 1-3, 12-10 

Structure 1-2 

Syntax 12-10 
DO statement 12-10 
DO WHILE 12-11 
Dollar sign 7-17 
Dummy argument 6-5 
Dynamic 

Block activation stack 2-2 

Predecessor 2-2 
Structure 2-1 
Successor 2-2 



E format item 8-8 
EDIT option 

GET 8-6, 12-19 

PUT 8-6, 12-29 
Edit-directed I/O 8-6 
Embedded-do 8-5 
EMPTY builtin function 11-13 
Enabled condition name 10-1, 12-3 
END statement 12-13 
ENDFILE condition 10-7 
ENDPAGE condition 10-7 
Entry 

Constant 3-3 

Prefix 1-4, 12-2 

Variable 3-8 
ENTRY attribute 4-13 
Entry name 

External 12-14, 12-27 

INRULE effects 12-14, 12-27 

Internal 12-14, 12-27 

Multiple 12-2 

Scope 12-27 
Entry point 

Function 1-2 

Main 1-2 
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Primary 1-2 

Secondary 1-2, 12-2 

Subroutine 1-2 
ENTRY statement 12-13 
Environment 

Block activation 2-2 

File 9-1 

File/CRM compatibility 9-2 

Immediate 2-3 

Nonlocal reference 6-2 
ENVIRONMENT attribute 4-14 
ENVIRONMENT option 12-7,12-25 
ERF builtin function 11-14 
ERFC builtin function 11-14 
| ERROR condition 10-7 
Error directory 13-4 
Establishing an on-unit 1-3, 10-3 
Executable unit 1-3 
Execution 1-1 
EXP builtin function 11-14 
Explicit declarations 5-2 
Exponentiation 7-5 
Expressions 

Definition 7-1 

Infix 7-2 

Order of evaluation 7-2 

Prefix 7-2 

Primitive 7-1 
Extensions to ANSI PL/I F-l 
Extent expression 4-26 
Extents 

Asterisk 4-26 

Definition 4-25 

Parameter 6-7 
EXTERNAL attribute 4-14, 5-1 
External entry constant 3-3 
External procedure 

Definition 1-2 

Entry name 12-14, 12-27 
Extralingual characters 1-7 



F format item 8-9 
Factoring 12-8 
File 

Description attributes 4-4 

Organization 9-1 

Variable 3-9 
FILE attribute 4-15 
File/CRM file compatibility 9-2 
File constant 

Definition 3-3, 8-1 

Description attributes 8-1 

Environment 9-1 

Opening 8-1, 9-2 

Title 8-2 
FILE control statement 9-2 
File Information Table 9-1 
FILE option 

GET 8-4, 12-19 

PUT 8-4, 12-29 
FINISH condition 10-8, 12-36 
FIT (see File taformation Table) 
Fixed 

Binary constant 3-2 

Decimal constant 3-1 

Length 9-1 
FIXED attribute 4-15 
FIXED builtin function 11-14 
FIXEDO VERFLOW condition 10-8 
Fixed point value 3-5 
-FL/MRL option 9-1 



Float 

Binary constant 3-2 

Decimal constant 3-1 
FLOAT attribute 4-15 
FLOAT builtin function 11-15 
Floating point value 3-5 
FLOOR builtin function 11-15 
Flow of control 2-1 
FO option 9-1 
Format 

Constant 3-4 

Name 12-2 

Prefix 1-4, 12-2 

Processing 8-6 
Format attribute 4-16 
Format item 

A 8-7 

B 8-7 

COLUMN 8-8 

E 8-8 

F 8-9 

Iteration factor 12-16 

LINE 8-10 

P 8-10 

PAGE 8-11 

Processing 8-6 

R 8-11 

SKIP 8-11 

X 8-12 
FORMAT statement 12-15 
FORTRAN subprograms 6-7 
FREE statement 12-16 
Fully qualified reference 6-3 
Function 

Entry point 1-2 

FORTRAN 6-7 

Reference 1-2, 6-4 



Generation 

Allocation 3-11 

Data description 3-9 

Definition 3-9 

Freeing 3-11 

Multiple 2-3, 6-1 

Storage description 3-10 
GET statement 8-4, 12-17 
GOTO 

local 12-21 

nonlocal 2-3, 12-21 
GOTO statement 12-20 



HBOUND builtin function 11-15 
HIGH builtin function 11-16 



I signed digit code 7-16 
Identifier 

Declaration 5-2 

Definition 1-5 

Dimensioned 5-3 

Scope 5-1, 6-1 

Special 1-5 
IF statement 1-3, 12-21 
Immediate 

Containment 1-1 

Environment 2-3, 10-4 
Implementation-defined Values F-3 
Implicit declaration 5-3 
INDEX bufltin function 11-16 
Indexed DO 12-11 
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Indexed sequential files 9-2 
Infix 

Arithmetic operations 7-4 

Bit string operations 7-6 

Comparison 7-7 

Expressions 7-1 
INITIAL attribute 4^16 
INPUT 1-1 
INPUT attribute 4-17 
INRULE arithmetic defaults 5-3 
INRULE processing 

Entry names 12-14, 12-27 

Returns descriptor 12-14, 12-28 
Insertion codes 7-17 
Intermediate values 7-3 
INTERNAL attribute 4-17, 5-1 
Internal entry constant 3-3 
Internal procedure 

Definition 1-2 

Entry name 12-14, 12-27 
Interrupt 1-3 
Invocation 

Main entry point 1-2 

Procedure 1-2, 12-14, 12-28 
I/O 

Conditions 10-4 

Edit-directed 8-6 

List-directed 8-5 

Record 8-12 

Stream 8-2 
iSUB 1-6, 4-12 
Iteration factor 4-17, 8-6 
Iterative do group 1-3, 12-11 



Job deck 14-1 



KEY condition 10-8 
Key length 9-1, 9-3 
KEYED attribute 4-18 
Keys 9-3 
Keywords 1-5, D-l 
KL option 9-1 



Label 

Assignment 7-7 

Constant 3-4 

Multiple 12-2 

Prefix 1-4, 12-2 

Variable 3-9 
LABEL attribute 4-18 
LBOUND builtin function 11-16 
LENGTH builtin function 11-16 
Level numbers 

Definition 3-13 

Factored 12-8 

Level 1 3-13, 4-23 
LFN option 9-1 
LGO 1-1 

LIKE attribute 4-24 
LINE format item 8-10 

LINENO builtin function 11-17 
LINESIZE option 12-25 
LIST option 

GET 8-5, 12-19 

PUT 8-6, 12-29 
List-directed I/O 8-5 
List processing 3-12 
Literal constant 1-5, 3-1, 4-6 



Local 

File name 8-2 

GOTO 12-21 

Reference 2-3, 6-1 
LOCATE statement 8-12, 12-22 
Locator 

ALLOCATE statement 12-4 

Assignment 7-7 

FREE statement 12-16 

LOCATE statement 12-23 

Qualifier 6-4 

Variable 3-7 
Locator-qualified reference 6-3 
LOG builtin function 11-17 
LOG10 builtin function 11-17 
LOG2 builtin function 11-17 
Logical 

AND 7-6 

File name 9-1 

OR 7-6 
LOW builtin function 11-18 



Main entry point 1-2 

Main procedure 

Activation 2-2 
Definition 1-2 
Termination 2-8 

Mathematical builtin functions 11-1 

MAX builtin function 11-18 

Maximum length 

Bit constant 3-3 
Character constant 3-3 
Record 9-1 
String variable 3-6 

Maximum value 

Arithmetic variable 3-6 
Fixed binary constant 3-2 
Fixed deciml constant 3-1 
Float binary constant 3-2 
Float decimal constant 3-2 

Member 3-13 

Member attribute 4-23 

MIN builtin function 11-18 

Minimum value 

Arithmetic variable 3-6 
Fixed binary constant 3-2 
Fixed decimal constant 3-1 
Float binary constant 3-2 
Float decimal constant 3-2 

MOD builtin function 11-19 

Mode error 2-9 

Multiple 

Closure 1-4, 2-5, 12-13 
Entry names 12-2 
Explicit declarations 5-2 
Format names 12-2 
Generations 2-3, 6-1 
Initial values 4-17 
Labels 12-2 
On-units 10-3 
Values 2-3 

Multiplication 7-5 
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Named constant 3-3, 4-3 
Nested 

Blocks 1-2 

ENTRY attributes 4-14 
Noniterative do group 1-3, 12-10 
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Non computational variable 

Area 3-7 

Entry 3-8 

File 3-9 

Label 3-9 

Locator 3-7 
Noncomputational data type 

Attributes 4-2 
Nonlocal 

GOTO 2-5, 12-21 

Reference 2-3, 6-1 

Reference in on-unit 10-3 
Nonvarying attribute 4-25 
Normal termination 

Block 2-4 

On-unit 2-4 
Null 

Descriptor 4-13 

On-unit 10-5 
NULL builtin function 11-19 
Null statement 12-24 



Object code 13-4 

OF option 9-1 

OFFSET attribute 4-18 

OFFSET builtin function 11-19 

Offset to pointer conversion 7-12 

Old/new flag 9-1 

ON option 9-1 

ON statement 1-3, 12-24 

On-unit 

Abnormal termination 2-7, 10-4 

Comparison with procedure block 1-; 

Current established 10-3 

Definition 1-3, 10-1 

Establishment 1-3 

Immediate environment 2-3, 10-4 

Normal termination 2-4, 10-4 

Null 10-5 

Programmed 10-1 

Removal 10-3 

System 10-1, 12-24 
ONCHAR builtin function 10-5, 11-20 
ONCHAR pseudovariable 11-20 
ONCODE builtin function 10-5, 11-20 
ONFILE builtin function 10-5, 11-20 
ONKEY builtin function 10-5, 11-20 
ONLOC builtin function 10-5, 11-20 
ONSOURCE builtin function 10-5, 11-20 
ONSOURCE pseudovariable 11-21 
Open flag 9-1 
OPEN statement 12-24 
Opening, file (see File constant) 
OPTIONS(MAIN) 12-28 
ORG option 9-1 
OUTPUT 1-1 
OUTPUT attribute 4-19 
O VERFLOW condition 10-8 



P format item 8-10 
PAGE format item 8-11 
PAGE option 8-5, 12-31 
PAGENO builtin function 11-21 
PAGENO pseudovariable 11-21 
PAGESIZE option 12-26 
Parameter 

Compatibility with argument 6-5 

Declaration 5-2 

Definition 6-5 

Descriptor 4-13, 6-5 

Descriptor attributes 4-5 

Entry 3-8 



ENTRY statement 12-14 

Extents 6-7 

File 3-9 

Lists 6-7 

Null descriptor 4-13 

PLI control statement 13-1 

PROCEDURE statement 12-27 

Storage 6-5 
Parameter attribute 4-19 
Partially qualified reference 6-3 
PD option 9-1 
PICTURE attribute 4-20 
Picture code 

Character 7-13 

Currency 7-17 

Decimal point 7-15 

Digit 7-15 

Insertion 7-17 

Numeric fixed point 7-13 

Numeric floating point 7-18 

Scaling factor 7-17 

Sign position 7-16 

Sign suffix 7-17 

Signed digit 7-16 
Picture-controlled conversion 7-13 
Picture handling builtin function 11-1 
Pictured data type attribute 4-3 
Pictured variable 

Character 3-6, 7-13 

Maximum length 7-13 

Numeric fixed 3-6, 7-13 

Numeric float 3-6, 7-18 
PLI control statement 

Diagnostics B-l 

Parameters 13-1 
PL/I and CRM files 9-1 
PL/I character set 1-7, A-l 
Pointer 

Comparison 7-7 

Conversion to offset 7-12 
POINTER attribute 4-20 
POINTER builtin function 11-21 
POSITION attribute 4-11 
Precision 3-6 
Precision attribute 4-20 
PRECISION builtin function 11-21 
Predecessor, dynamic (see Dynamic) 
Prefix 

Arithmetic operations 7-4 

Bit string operations 7-6 

Condition 1-4, 10-1, 12-2 

Entry 1-4, 12-2 

Expressions 7-2 

Format 1-4, 12-2 

Label 1-4, 12-2 

Restrictions 12-2 

Statement 12-2 
Primary entry point 1-2 
Primitive expression 7-1 
PRINT attribute 4-21 
PRINT option 12-55 
Procedure 

Invocation 1-2, 12-14, 12-28 

Main 1-2 

FORTRAN 

Reference 
Procedure block 

Activation 

Closure 1-4 

Comparison with on-unit 1- 

External 1-2 

Internal 1-2 

Structure 1-1 

Syntax 12-26 



6-7 
6-4 

1-2, 2-2 
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PROCEDURE statement 12-26 
Program 

Abort 2-9 

Coding 1-7 

Compilation 1-1, 13-1 

Definition 1-1 

Dynamic structure 2-1 

Examples 14-1 

Execution 1-1 

Function entry point 1-2 

Interrupt 1-3 

Main entry point 1-2 

Main procedure 1-2 

Primary entry point 1-2 

Secondary entry point 1-2, 12-2 

Source 1-1 

Static structure 1-1 

Subroutine entry point 1-2 

Termination 2-8 
Programmed on-unit 10-1 
Pseudovariable 

Argument specification 11-5 

Definition 11-5 

ONCHAR 11-20 

ONSOURCE 11-21 

PAGENO 11-21 
I Reference 6-13 

SUBSTR 11-24 

UNSPEC 11-26 
PUT statement 8-4, 12-29 



R format item 8-11 

R signed digit code 7-16 

Radix factor 1-5 

Raising disabled conditions 10-4, 12-3 

Raising enabled conditions 10-4, 12-3 

READ statement 8-12, 12-32 

REAL attribute 4-21 

RECORD attribute 4-21 

Record buffer 3-12, 12-23 

RECORD condition 10-9 

Record I/O 

DELETE 8-12, 12-9 

LOCATE 8-12, 12-22 

Processing 8-12 

READ 8-12, 12-32 

REWRITE 8-12, 12-35 

WRITE 8-12, 12-36 
Record keys 9-3 
Record type 9-1 
Recursion 2-2 
RECURSIVE option i2-28 
REFER option 4-24 
m Reference 
1 Builtin function 6-13 

Data 6-2 

Definition 6-1 

Fully qualified 6-3 

Function 1-2, 6-4 

List 13-4 

Local 2-3 j 6-1 

Locator-qualified 6-3 

Nonlocal 2-3, 6-1 

Partially qualified 6-3 

Procedure 6-4 
1 Pseudovariable 6-13 

Simple 6-2 

Structure-qualified 6-3 

Subscripted 6-2 
Removing on-units 10-3 
Replicated 

Bit constant 3-3 

Character constant 3-2 



RETURN statement 12-33 
RETURNS attribute 4-22 
Returns descriptor 4-1, 12-14, 12-28 
REVERSE builtin function 11-22 
RE V ERT state ment 1 2-34 
REWRITE statement 12-35 
ROUND builtin function 11-22 
RT option 9-1 
Run-time diagnostic messages B-3 



S sign position code 7-16 

Sample programs 14-1 

Scalars 3-13 

Scale 3-5 

Scaling factor code 7-17 

Scope 

Condition prefix 10-1 
Declaration 5-1, 6-1 
Identifier 5-1, 6-1 
Scope type attributes 4-1, 4-3 
Secondary entry point 1-2, 12-2 
SEQUENTIAL attribute 4-22 
Sequential files 9-2 
Sequential flow of control 2-1 
Sign 

Position codes 7-16 

Suffix codes 7-17 
SIGN builtin function 11-22 
SIGNAL statement 12-35 
Signed digit codes 7-16 
Simple 

Bit string constant 1-5 

Character string constant 1-6, 3-2 

Defining 4-11 

Reference 6-2 
SIN builtin function 11-23 
SIND builtin function 11-23 
Single statement 1-4 
SINH builtin function 11-23 
SIZE condition 10-9 
SKIP format item 8-11 
SKIP option 

GET 8-4, 12-19 

PUT 8-4, 12-31 
SNAP 

Contents 10-5 

Option 12-24 
Source 

Listing 13-3 

Program 1-1 
Special identifiers 

SYSIN 1-5 

SYSPRINT 1-5 
SQRT builtin function 11-23 
Stack (see Dynamic block activation stack) 
Statement 

ALLOCATE 12-3 

Assignment 12-5 

BEGIN 12-6 

Body 1-4 

CALL 12-6 

CLOSE 12-7 

Compound 1-3 

DECLARE 5-2,12-8 

Definition 12-1 

DELETE 8-12, 12-9 

DO 12-10 

Elements 1-5 

END 12-13 

ENTRY 12-13 

FORMAT 12-15 

FREE 12-16 

GET 8-4, 12-17 
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GOTO 12-20 

IF 1-3, 12-21 

LOCATE 8-12, 12-22 

Null 12-24 

ON 1-3, 12-24 

OPEN 12-24 

Prefix 12-2 

PROCEDURE 12-26 

PUT 8-4, 12-29 

READ 8-12, 12-32 

Record I/O 8-12 

RETURN 12-33 

REVERT 12-34 

REWRITE 8-12, 12-35 

SIGNAL 12-35 

Single 1-4 

STOP 2-8, 12-36 

Steam I/O 8-4 

Termination 1-4 

WRITE 8-12, 12-36 
STATIC attribute 4-23 
Static storage 3-10 
Static structure 1-1 
STOP statement 2-8, 12-36 
Storage 

Automatic 3-10 

Based 3-11 

Controlled 3-11 

Defined 4-11 

Parameter 6-5 

Static 3-10 
STORAGE condition 10-10 
Storage control builtin functions 11-1 
Storage description 3-10 
Storage type attributes 4-1 
STREAM attribute 4-23 
Stream I/O 

Builtin functions 11-1 

FORMAT 12-15 

GET 8-4, 12-17 

Processing 8-2 

PUT 8-4, 12-29 
String handling builtin functions 11-5 
String operations 

Comparison 7-7 

Concatenate 7-6 

Definition 7-5 

Infix bit string 7-6 

Operand conversion 7-6 

Prefix bit string 7-6 
String data type attributes 4-3 
STRING option 

GET 8-4, 12-19 

PUT 8-4, 12-29 
String overlay defining 4-11 
String variable 3-6 
STRINGRANGE condition 10-10 
Structure 

Begin block 1-1 

Declaration 5-3 

Do group 1-2 

Dynamic 2-1 

Procedure block 1-1 

Program 1-1 

Static 1-1 
Structure attribute 4-23 
Structure expansion 4-24 
Structure-qualified reference 6-3 
Structures 3-13 
Subroutine 

Entry point 1-2 

FORTRAN 6-7 



Subscripted reference 6-2 

SUBSCRIPTRANGE condition 10-10 

Subscripts 6-2 

SUBSTR builtin function 11-24 

SUBSTR pseudovariable 11-24 

Substructure 3-13, 4-23 

SUBTRACT builtin function 11-24 

Subtraction 7-4 

Successor, dynamic (see Dynamic) 

SYSIN 1-5, 5-2 

SYSPRINT 1-5,5-2 

System on-unit 10-1, 12-24 



T signed digit code 7-16 
TAN builtin function 11-24 
TAND builtin function 11-25 
TANH builtin function 11-25 
Termination 

Abnormal block 2-5 

Abnormal on-unit 2-7, 10-4 

Main procedure 2-8 

Normal block 2-4 

Normal on-unit 2-4, 10-4 

Prefix 1-4 

Program 2-8 

Statement 1-4 

STOP statement 2-8 
TIME builtin function 11-25 
Time limit 2-9 
TITLE option 12-25 
Transfer, unconditional 1-2 
TRANSLATE builtin function 11-26 
TRANSMIT condition 10-10 
TRUNC builtin function 11-26 



UNALIGNED attribute 4-6 
Unconditional transfer 1-2 
UNDEFINEDFILE condition 10-11 
UNDERFLOW condition 10-11 
Unsatisfied external 2-9 
UNSPEC builtin function 11-26 
UNSPEC pseudovariable 11-26 
UPDATE attribute 4-25 



V decimal point code 7-15 
VALID builtin function 11-27 
Variable 

Area 3-7 

Arithmetic 3-5 

Computational 3-5 

Definition 3-5 

Entry 3-8 

File 3-9 

Label 3-9 

Locator 3-7 

Noncomputational 3-7 

Pictured 3-6 

String 3-6 
Variable attribute 4-25 
VARYING attribute 4-25 
VERIFY builtin function 11-27 



Word 

Definition 1-5 
Identifier 1-5 
Keyword 1-5, D-l 
Word addressable files 9-2 
WRITE statement 8-12, 12-36 
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X character code 7-13 9 digit code 7-13, 7-15 

X format item 8-12 + sign position code 7-16 

- sign position code 7-16 
Y digit code 7-15 * digit code 7-15 

/ insertion code 7-17 

Z digit code 7-15 $ currency code 7-17 

Zero , insertion code 7-17 

Replacement 7-15 . insertion code 7-17 

Suppression 7-15 

ZERODIVIDE condition 10-11 
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